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meteorological  data  produced  by  the  OL-192  increase  the  artillery  commander's 
capability  for  a first  round  hit  probability.  This  increase  the  effective- 
ness of  friendly  artillery,  while  reducing  our  weapons'  exposure  to  enemy 
acquisition  systems  counter  battery  fires. 

The  OL-192  is  used  by  the  artillery  meteorological  sections  to  reduce  the  raw 
meteorological  data  received  by  the  Radiosonde  Recorder  AN/TM)-5(*)  and  the 
winds  data  received  by  the  Control  Recorder  C-577(*),  a component  of  the 
Radiosonde  System  AN/CWD-1(*).  Input  is  entered  from  the  calculator's  console 
for  real  flight  time  computation.  The  OL-192  program  can  also  calculate  mes- 
sages from  the  last  flight  data,  punch  pressure  calibration  tapes  for  radio- 
sondes, and  can  print  the  flight  information  for  each  entered  significant 
level  and  zone  information  for  each  zone  height  level. 
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1.  PROGRAM  DESCRIPTION 


Purpose:  The  OL-192  Meteorological  Data  Reduction  Program  quickly 
converts  raw  meteorological  data  into  accurate  real  time  meteorological 
messages.  Real  time  meteorological  data  produced  by  the  OL-192  increase' 
the  artillery  commander's  capability  for  a first  round  hit  probability. 
This  increases  the  effectiveness  of  friendly  artillery  while  reducing 
our  weapons'  exposure  to  enemy  acquisition  systems  counter  battery  fires. 

Use:  The  OL-192  is  used  by  the  artillery  meteorological  sections 
to  reduce  the  raw  meteorological  data  received  by  the  Radiosonde  Recorder 
AN/TMQ-5(*)  and  the  winds  data  received  by  the  Control  Recorder  C- 577 (*) , 
a component  of  the  Radiosonde  System  AN/CM)- 1(*).  Input  is  entered 
from  the  calculator's  console  for  real  flight  time  computation.  The 
OL-192  program  can  also  calculate  messages  from  the  last  flight  data,  it 
can  punch  pressure  calibration  tapes  for  radiosondes,  and  it  can  print 
the  flight  information  for  each  entered  significant  level  and  zone  infor- 
mation for  each  zone  height  level. 

Physical  Description 


Hewlett-Packard  9825A  Calculator 
Displays : 

Light  Emitting  Diodes  (LED)  - 32-character  data  display 

to  prompt  the  operator. 


Strip  Printer 

Live  keyboard 
Audio  Beeper 


- Prints  16 -character  wide 
hard  copy  listing  of  pro- 
grams , entries  and  messages. 

- Permits  use  of  the  computer 
while  a program  is  running. 

- Alerts  operator  for  data 
inputs . 


Remex  Reader/Perforator 
Tape  Reader: 

Tape  Material  : 

Speed  : 


8-channel,  1-inch  wide  ASCII,  Mylar  or 
paper . 

300  characters  per  second. 

Loop  or  strip. 

Left  to  right. 
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Perforator: 

Tape  material:  8-channel,  1-inch  wide,  ASCII,  Mylar  or 
paper. 

5-channel,  11/16- inch  wide,  BAUDOT,  Mylar 
or  paper. 

Speed:  120  characters  per  second. 

Tape  form:  1,200-foot  roll  (2-inch  core) 

Reader/Perforator  Rewind 

Winds  punch  data  tapes  for  ease  of  storage. 

LEI)  Display  and  Audible  Beep  Interpretation. 

Types  of  displays  and  beeps 

1.  Verification  of  data  entered  prompt:  displays  data  for  verifica- 
tion and  ends  with  a question  mark  (?).  The  YES  and  NO  keys  are  activated 
and  there  is  one  audible  beep. 

2.  Entry  of  data  prompt;  displays  ENTER,  type  of  data  entry,  and  a 
range  of  entry  data  values.  There  are  two  audible  beeps. 

3.  Action  prompt:  displays  the  type  of  action  required.  There 
are  three  audible  beeps. 

Flag  Definitions  (True/False) : 

Flag  0:  Optional  output 

Flag  1:  Figures  output  on  BAUDOT  code  (TIT- 76) /no  figures  output 

Flag  2:  Letters  output  on  BAUDOT  code  (TTY- 76) /no  letters  output 

Flag  3:  No  delete/delete 

Flag  4:  Paper  tape  reader -perforator  on/off 

Flag  5:  Figures  mode  on  BAUDOT  code  (TTY- 76) /no  figures  mode 

Flag  6:  Letters  mode  on  BAUDOT  code  (TTY- 76) /no  letters  mode 

Flag  7:  TTY- 76  code  (BAUDOT) 

Flag  8:  UGC-74  code  (ASCII) 

Flag  9:  Continue  flight/ flight 
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Flag  10:  Not  used 

Flag  11:  Missing  data/no  missing  data 
Flag  12:  AWS  messages/no  AWS  messages, 
a.  System  Flow 

The  general  flow  of  the  OL-192  program  is  controlled  by  the  Master 
Supervisory  File  and  the  Special  Function  Keys.  When  the  calculator  is 
turned  on  and  the  program  cartridge  is  seated,  the  calculator  will  auto- 
matically load  the  Master  Supervisory  File  and  begin  running  the  program. 

The  program  prints  the  program  title,  version  number  and  version  date 
first.  It  then  loads  the  functional  key  definitions  from  file  1 (see 
Table  1 for  description  of  special  function  keys) . The  Master  Supervisory 
File  prompts  the  operator  to  press  one  of  the  upper  row  keys  that  activate 
one  of  six  other  routines.  These  routines  are: 

1.  START  - Start  flight  procedures. 

2.  CQNT  - Continue  current  flight  from  last  entered  data 

level  or  zone. 

3.  LAST  FLT  - Print/Punch  meteorological  messages  from  the  last  flight 

data. 

4.  P.  TAPE  - Prompt  operator  through  sequence  to  punch  NWS  format 

radiosonde  pressure  tape. 

5.  PIRAL  - Pilot  balloon  method  of  data  entry.  Not  implemented. 

6.  TACFIRE  - TACFIRE  test- loop  sequence  to  test  proposed  tacfire 

interface . 

The  other  six  functional  keys  are  activated  by  the  individual  routines. 


They  are: 

1. 

INFO 

- Print  flight  level  and  zone  level  information  for 
the  flight  record. 

2. 

OUTPUT 

- Produce  meteorological  messages  from  light  level  and 
zone  level  data. 

3. 

DELETE 

- Delete  last  significant  data  level,  message  or  contact 

4. 

NO 

- No  answer  key. 

5. 

YES 

- Yes  answer  key. 

6. 

DATA  IN 

- Used  to  input  data  into  calculator. 

~r  * • r 


An  operator's  flow  chart  and  a system  flow  chart  showing  the  interconnection 
of  the  routines  is  in  section  4. a (P.  41). 


The  OL-192  Meteorological  Real  Time  Program  is  divided  into  three  logical  | 

sections.  1 

i 

1.  Preflight  (surface  data  and  baseline  check). 

2.  Flight  (inflight  data  reduction). 

# 

3.  Output  (meteorological  messages) • 

The  preflight  section  is  entered  when  the  operator  presses  the  "START"  key. 

After  the  preflight  section,  the  program  enters  the  flight  section.  At 
any  time  in  the  flight  section,  the  operator  can  enter  a NO  key  answer 
and  activate  the  INFO,  OUTPUT,  and  DELETE  keys.  The  operator  can  delete 
significant  levels,  print  flight  information,  or  get  meteorological  \ 

messages  by  pressing  one  of  these  keys.  The  Output  section  is  entered 
by  pressing  the  "OUTPUT"  key.  After  any  of  the  three  actions  is  com- 
pleted, the  program  will  return  to  the  next  significant  level  or  zone 
level  entry.  : 

b . Pre flight  Section 

The  preflight  section  is  entered  by  pressing  the  "START"  key. 

The  preflight  routine  prompts  the  operator  through  entry  of  the  Date- 
Time  Group,  surveys  the  site  of  launch,  enters  the  type  of  output,  checks 
the  recorder  linearity,  enters  the  radiosonde  type,  and  enters  the 
pressure  table  by  the  15-contact  or  180-contact  method.  It  also  enters 
the  temperature  and  humidity  tables,  the  baseline  data  values  and  the 
meteorological  data  at  launch. 

( 1 ) Date -Time  Group 

The  DATE-TIME  Group  routine  prompts  the  operator  to  enter  the  year, 
month,  day  and  time  in  GMT  (ZULU)  and  assembles  the  DATE-TIME  Group. 

The  group  is  used  to  update  the  flight  date,  survey  date,  linearity  date 
and  last  flight  date.  The  DATE-TIME  Group  is  stored  in  D$. 

( 2 ) Survey  Data 

If  the  previous  flight  launch  site  is  the  same  as  the  current 
flight,  the  previous  survey  data  can  be  used.  These  data  are  stored  in 
P$  and  are  printed  for  the  flight  record.  Otherwise,  the  routine  prompts 
the  operator  through  entry  of  the  station  elevation.  If  the  launch  site 
is  a coded  location,  the  code  is  entered;  otherwise  the  latitude,  longitude 
and  quadrant  (see  Table  2)  are  entered.  The  routine  prints  the  survey 
data  for  verification  and  flight  record.  It  updates  P$  and  the  flight 
launch  site  date  0$.  In  the  messages,  the  headers  contain  the  site 
identification. 
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( 3)  Output  Type 

At  this  time,  the  operator  decides  what  type  of  punched  teletape 
will  be  punched  by  the  OUTPUT  section.  It  can  be  either  TTY-76  (BAUDOT 
code  - 5 channel  - 11/16-inch  tape:  see  Table  3)  or  UGC-74  (ASCII  code  - 
8-channel  - 1-inch  tape:  see  Table  4).  The  ASCII  code  is  used  inter- 
nally by  the  calculator.  When  punching  BAUDOT  tape,  the  OUTPUT  section 
converts  the  ASCII  code  to  BAUDOT  using  a string  array  of  64  characters. 
The  character  is  looked  up  in  the  array  H$.  The  position  converts  into 
a number  between  0 and  31.  This  number  is  punched  in  binary  on  a five 
channel  tape.  The  figures  and  letters  mode  is  determined  by  which  32 
character  sub array  the  character  is  found  in.  If  the  character  is  not 
in  the  respective  mode,  the  mode  key  (figures  or  letters)  is  punched 
before  punching  the  character. 

(4)  Recorder  Linearity 

If  the  previous  linearity  date  L$  is  still  valid  and  the  recorder 
serial  number  N$  is  the  same,  the  previous  linearity  data  are  printed  for 
the  flight  record.  If  invalid,  the  operator  enters  the  recorder  serial 
number  and  recorder  calibration  values  at  190,  180,  160,  140,  120,  100, 

80,  60,  40,  20,  and  10  cycles.  These  values  are  stored  in  G$  and  are 
used  to  correct  recorder  readings  in  the  subroutine  CORRECT  READING.  The 
program  rejects  a recorder  where  any  printed  trace  exceeds  +0.3  of  a 
recorder  division.  The  routine  prints  a recorder  linearity  table,  listing 
the  deviations  between  the  true  and  actual  values  for  the  flight  record. 

(5)  Radiosonde  Type 

This  routine  enters  the  type  of  radiosonde  used  in  the  flight. 

If  it  is  an  AN/AMT-4,  the  program  will  calculate  the  temperature  and 
humidity  using  the  AN/AMT-4  humidity  RD  (array  K)  and  humidity  (array  E) 
tables.  If  it  is  a JC05  radiosonde,  the  J005  humidity  RD  and  humidity 
tables  are  loaded.  The  program  prints  after  the  entry  of  the  baseline 
values,  the  baseline  ratios  for  the  lock-in  of  the  Computer,  Humidity- 
Temperature  CP-223C/UM  if  the  radiosonde  is  an  AN/AMT-4.  If  it  is  a 
J005  radiosonde  the  program  will  print  the  baseline  temperature  ratio 
setting  for  the  USWB-230  computer  and  the  humidity  ratio  setting  for  the 
USWB-300  computer. 

(6)  Pressure  Table 

There  are  two  ways  to  enter  the  radiosonde  pressure  values  for  each 
contact . 

15-contact  method:  This  method  inputs  15  selected  contact  values. 

The  program  checks  that  these  15  values  form  a 
pressure  curve  that  is  proportional  to  the 
standard  curve  U$  in  the  calculator.  The 
possible  deviation  from  the  curve  is  +6  mb 
at  high  pressure  down  to  +1  mb  at  low  pressure. 
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180-contact  method:  This  method  inputs  all  180  contact  values. 

The  15- contact  values  are  selected  from  this 
table. 

Therefore,  the  method  of  computing  pressures  is  the  same  whether  the  15- 
or  180-contact  entry  method  is  used.  The  program  uses  the  given  15  con- 
tacts or,  in  the  180-contact  method,  extracts  the  15  selected  contacts 
in  the  15-contact  array  V$.  Linear  interpolation  is  used  to  calculate 
the  pressure  for  a given  contact  and  the  contact  for  a given  pressure. 
The  pressure  is  calculated  using  the  15-contact  values  and  the  curve 
generated  by  the  standard  pressure  table  or  by  the  180-contact  pressure 
table. 


If  the  operator  has  a pressure  tape,  the  pressure  tape  is  loaded 
into  the  calculator,  the  15- contact  values  are  extracted,  and  the  program 
proceeds  to  check  the  pressure  calibration  table.  If  the  operator  does 
not  have  a pressure  tape,  the  program  enters  the  15- contact  values. 

The  program  checks  the  interpolated  midpoints  against  the  standard  table 
interpolated  midpoints.  If  the  values  are  bad  (+6  mb),  the  program  loads 
the  pressure  tape  making  routine  P.  TAPE.  If  the  REMEX  is  down,  the  pro- 
gram allows  the  operator  to  enter  manually  the  180  contacts  into  the  cal- 
culator. Otherwise,  the  program  prompts  the  operator  through  making  a 
pressure  tape  and  restarts  the  flight. 

(7)  Baseline  Data 

This  routine  enters  the  wet  and  dry  bulb  temperatures,  recorder 
reference  reading,  temperature  trace  reading  and  humidity  trace  reading 
from  the  baseline  chamber.  If  the  entered  values  are  verified,  the  pro- 
gram will  print  out  the  values  after  correcting  them  for  drift  and  fre- 
quency. If  the  humidity  is  less  than  20  percent  or  greater  than  70  percent 
or  the  temperature  is  less  thaii  20°C  or  greater  than  30°C,  the  baseline 
check  is  repeated.  The  values  entered  are  stored  in  array  B(*). 

C8)  Launch  Data 


This  routine  calculates  the  geopotential  height  constant,  enters 
the  azimuth  offset,  horizontal  distance  offset,  surface  wind  direction, 
surface  wind  speed,  and  surface  pressure  and  contact.  These  values  are 
verified  and  stored  in  array  A(*).  In  the  flight  section,  they  will  be 
stored  in  flight  array  F(*). 

(9)  Contact  Correction 


If  the  surface  contact  has  changed  between  the  launch  data  input 
and  the  pressure  table  verification,  this  routine  will  calculate  an  auto- 
matic pressure  correction.  This  value  is  printed  for  the  flight  record. 
If  the  contact  corrections  are  fewer  than  +2.0  contacts,  the  program 
automatically  applies  the  correction  to'  the  significant  level  contact 
pressure  values.  If  the  automatic  contact  corrections  are  more  than  2.0 
contacts,  the  flight  is  terminated. 


W'- 
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This  routine  enters  the  operator's  desire  for  the  Air  Weather 
Service  (AWS)  messages  in  the  OUTPUT  and  last  flight  sections.  If  the 
messages  are  needed,  this  routine  enters  the  USAF  location  code  for  the 
message  header  lines . 

The  program  now  loads  the  flight  section  of  the  program, 
c.  Flight  Section. 

This  section  enters  all  flight  data  for  each  significant  level 
and  each  zone  height  level.  It  is  initiated  by  entry  from  the  preflight 
section, or  the  current  flight  can  be  continued  by  pressing  the  "CONT”  key. 
The  significant  level  data  is  entered  for  each  level  passed.  If  the  pro- 
grams determines  that  a zone  height  has  been  passed,  it  calculates  the 
time  the  zone  level  data  are  needed  and  inputs  the  data. 

(1)  Significant  Levels 

This  routine  enters  the  contact,  time,  temperature  and  humidity 
for  each  significant  level  and  prints  these  data  for  verification.  If 
verified,  the  program  calculates  and  displays  the  temperature  lapse  rate. 
The  significant  level  data  are  stored  in  the  flight  table  array  F(*). 

The  missing  data  routine  is  entered  when  a star  (*)  is  entered  with  the 
reference  value.  The  routine  will  print  "MISSING  DATA  START  HERE."  The 
last  good  data  level  is  printed  using  INFO  and  the  next  good  data  level 
is  entered  and  printed  using  INFO.  The  entry  of  significant  level  data 
is  continued.  The  missing  mandatory  levels  are  saved  in  array  F(*)  and 
printed  as  missing  levels.  The  maximum  data  level  is  60. 

(2)  Zone  Level  Data 

This  routine  enters  azimuth  and  elevation  angles  for  a tenth  of 
a minute  belcv/  and  above  the  zone  height.  The  angles  are  printed  and, 
if  verified,  the  message  height  is  displayed.  The  program  interpolates 
for  the  exact  angles.  The  recorder  increments  for  time  can  be  set  by 
the  operator.  When  the  zone  level  elevation  is  requested,  an  asterisk 
(*)  is  entered  with  the  incremented  value.  Thereafter,  the  program  will 
request  angular  data  with  that  time  increment.  The  time  increment  values 
are  1.0,  or  0.5,  and  the  standard  incremented  value  is  0.1  minutes. 

Missing  angles  can  be  interpolated  by  entering  the  elevation  angle  with 
a star  (*) . The  program  requests  the  time  the  missing  angles  start  and 
the  time  the  missing  angles  stop.  It  then  requests  the  elevation  and 
azimuth  angles  at  these  two  points.  The  program  then  interpolates  the 
angles  for  the  zones  between  the  two  times.  After  the  balloon  has 
reached  30  kilometers,  there  is  an  automatic  output  of  meteorological 
messages.  The  maximum  zone  is  45  which  is  equivalent  to  55  kilometers. 
Zone  level  data  are  stored  in  the  array  H (*) . 


d.  OUTPUT  Section 


This  section  is  entered  from  the  Flight  section.  In  the  flight 
section,  a NO  answer  to  any  data  input  query  will  activate  the  OUTPUT  key. 
The  Outnut  program  produces  meteorological  messages  from  the  flight  data 
in  the  flight  level  array  F(*)  and  the  zone  level  array  H(*)  tables  that 
were  entered  in  the  Flight  section.  The  OUTPUT  section  computes  and  out- 
puts the  following  messages  from  the  current  flight: 

SOUND  RANGING 
COMPUTER  MET  (FADAC  M-18) 

FALLOUT 
BALLISTIC  3 
BALLISTIC  2 
AWS  MESSAGES 
TTAA 
TTBB 
PPBB 
TTCC 
TTDD 
PPDD 

After  print/punching  the  messages,  the  last  flight  output  may  be  updated 
by  the  current  flight.  The  last  flight  messages  section  is  exactly  the 
same  as  the  output  section  except  that  last  flight  uses  data  on  track  one. 

(1)  Sound  Ranging  Message 

The  general  requirement  is  to  determine  the  windspeed  and 
direction  in  four  layers  from  the  surface  to  800  meters  and  to  determine 
the  virtual  temperature  at  a height  of  200  meters.  The  data  transmitted 
are  the  effective  temperature,  effective  wind  direction,  effective  wind- 
speed  and  the  time  of  release.  The  effective  temperature  is  the  sonic 
temperature  at  200  meters.  For  the  effective  wind  direction  and.  speed, 
the  sound  ranging  layer  wind  calculations  are  the  weighted  and  summed 
X,  Y wind  components  for  the  surface,  200,  400,  600  and  800  meter  levels: 


(a)  The  Weighting  Factors  are: 


Structure 

Height 

Surface 

200 

400 

600 

800 

Normal 

0.2 

0.5 

0.15 

0.075 

0.075 

2 

0.4 

0 

0.3 

0.15 

0.15 

3 

0 

1.0 

0 

0 

0 

4 

0 

0 

1.0 

0 

0 
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Normal  Structure  - The  400-meter  layer  wind  is  one  to  two  times  the 
200-meter  layer  wind. 

Structure  2 - The  400-meter  layer  wind  is  greater  than  two  times  the 

200 -meter  layer  wind. 


Structure  3 - The  400 -meter  layer  wind  is  less  than  the  200 -meter 

layer  wind  and  within  two  knots  of  the  surface  wind. 

Structure  4 - The  400-meter  layer  wind  is  less  than  the  200-meter 

layer  wind  and  not  within  two  knots  of  surface  wind. 

(b)  Sound  Ranging  Message  Format 

METSRQXXXXXX 

YYGGGV+TTTTinnFF 

9 


METSR  Identifying  prefix  for  sound  ranging  message 

Q Octant  of  the  globe  (0  to  8 not  4) , 9 if  location  is 

coded. 

XXXXXX  Location  of  reporting  station.  The  first  three  digits 
encode  latitude  and  the  last  three  encode  longitude  in 
degrees  and  tenths  of  degrees. 

YY  Day  of  month  (01  to  31) 

GGG  Hour  of  valid  period  (CMT)  in  tens',  units  and  tenths 

of  hours  (000  to  239). 

V Length  of  valid  period  in  hours  (1  to  8) , 9 equals 

12  hours.  (Set  to  0) 

+TTT  Effective  temperature  to  nearest  l/10th  degree  C 

(-499  to  +499). 

DDD  Effective  wind  direction  in  tens  of  mils  (001  to 

640) . (000  for  calm  wind) . 

FF  Effective  wind  speed  in  knots  (00  to  99) 

9 Message  terminator.  (Punch  output) 

(2)  Computer  Meteorological  Message  (FADAC  M-18) 

The  computer  message  differs  from  the  ballistic  (NATO)  message 
in  that  the  zoning  structure  is  different,  the  zone  values  are  not 
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weighted,  and  the  weather  elements  are  reported  as  true  values  instead 
of  weighted  percent  of  standard.  The  elements  reported  for  each  of  the 
26  zones  (see  Table  5)  are  wind  direction  wind  speed,  virtual  tempera- 
ture, and  the  zone  midpoint  pressure. 

Computer  Meteorological  Message  Format 

METCMQXXXXXX 

YYGGGVHHHPPP 

ZZDDDFFFmTRRRR 

xxxxxxxxxxxxxxxx 

26DDDFFFTTTTRRRR 

9 

METCM  Identifying  prefix  for  computer  message. 

Q Octant  of  the  globe 

XXXXXX  Location  of  reporting  station.  The  first  three  digits 
encode  latitude  and  the  last  three  encode  longitude 
in  degrees  and  tenths  of  degrees. 

YY  Day  of  month  (01  to  31) 

GGG  Hour  of  valid  period  (OTT)  in  tens,  units  and  tenths 

(000  to  239) 

V Length  of  valid  period  hours  (1  to  8) , 9 equals  12 

hours.  (Set  to  0) 

HHH  Altitude  of  meteorological  datum  plane  in  tens  of 

meters  above  mean  sea  level. 


PPP  Station  pressure  to  nearest  millibar  (omit  thousands 

digit) 

ZZ  Line  number  for  message  (00  to  26) 

DDD  Zone  wind  direction  in  tens  of  mils  (001  to  640) 

(000  for  calm  wind) 

FFF  Zone  wind  speed  in  knots  (000  to  999) 

TTTT  Zone  virtual  temperature  to  nearest  0.1  degree  K 

(0000  to  5000) 

RRRR  Zone  midpoint  pressure  in  millibars  (0000  to  1100) 

9 Message  terminator  (Punch  output) 

/ Missing  data  indicator 


* 
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(3)  FALLOUT  Message 

The  Meteorological  Message  for  fallout  contains  the  average  vector 
wind  for  each  2,000  meter  zone  from  the  surface  to  a height  of  30,000 
meters  (see  Table  5).  The  average  wind  for  each  2,000-meter  zone  is 
reported  to  the  nearest  one  knot  and  to  the  nearest  10  mils.  The  dis- 
tance traveled  in  each  fallout  zone  is  calculated  from  the  zone  level 
data  and  an  average  speed  and  direction  are  computed.  Fallout  winds 
are  not  weighted : 

Fallout  Message  Format 

METFMQXXXXXX 
YYGGGVttttTRO 
ZZDDDFFF 

xxxxxxxx  1 

15DDDFFF 
9 


METFM  Identifying  prefix  for  fallout  message. 

Q Octant  of  the  globe  (0  to  8 not  4) , 9 if  location 

is  coded. 

XXXXXX  Location  of  reporting  station.  The  first  three  digits 
encode  latitude  and  the  last  three  encode  longitude 
in  degrees  and  tenths  of  degrees. 

YY  Day  of  month  (01  to  31) . 

GGG  Hour  of  valid  period  (GMT)  tens,  units  and  tenths 

(000  to  239)  . 

V Length  of  valid  period  (1  to  8) , 9 equals  12  hours 

(Set  to  0)  . 

HHH  Altitude  of  meteorological  datum  plane  in  tens  of 

meters  above  mean  sea  level  (000  to  999) . 

ZZ  Line  number  for  fallout  data  (00  to  15) . 

DDD  Wind  direction  to  nearest  10  mils  (001  to  640) 

(000  for  calm  winds) . 

FFF  Wind  speed  in  knots  (000  to  999) . 

9 Message  terminator  (Punch  output) . 

/ Missing  data  indicator. 

TRO  Filler  for  fallout  message. 
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(4)  Ballistic  Meteorological  Messages 

The  ballistic  message  is  a measure  of  the  parameters  of  the 
atmosphere,  a comparison  of  the  current  conditions  with  standard 
conditions,  and  a report  of  the  variations  in  terms  of  weighted  percents 
of  standard  (see  Tables  6 and  7) . The  average  wind  speed  and  direction 
for  each  of  the  atmospheric  zones  are  determined.  The  zone  values  of 
density  and  temperature  are  compared  with  the  standard  zone  values  and 
variations  from  the  standard  are  determined.  The  variations  from  standard 
are  then  weighted  according  to  specified  zone  weighting  factors.  These 
mean  weighted  quantities  are  the  ballistic  values. 

Two  general  categories  of  trajectoris  have  been  established; 

Type  3 - surface  to  surface  (see  Table  8 for  weights). 

Type  2 - surface  to  air  (see  Table  9 for  weights). 

Ballistic  Message  Format: 

MhTBKQXXXXXX 

YYGGGVHHHPPP 

ZZDDFFTTTRRR 

xxxxxxxxxxxx 

15DDFFTTTRRR 

9 

METB  Identifying  prefix  for  ballistic  messages. 

K Type  of  message  (the  value  of  K may  be  2 for  ballistic 

met  2, or  3 for  ballistic  met  3). 

Q Octant  of  the  globe  (0  to  8 not  4) , 9 when  station  is 

coded. 

XXXXXX  Location  of  reporting  station. 

YY  Day  of  the  month  (01  to  31) . 

GGG  Hour  of  beginning  valid  period  (GMT)  tens,  units,  and 

tenths  (000  to  239)  . 

V Length  of  valid  period  hours  (1  to  8) , 9 equals  12 

hours  (Set  to  0) . 

HHH  Altitude  of  meteorological  datum  plane  in  tens  of 

meters  above  mean  sea  level. 

PPP  Station  pressure  in  percent  of  ICAO  standard  to 

nearest  0.1  percent  (000  to  999). 

ZZ  Line  number  for  ballistic  information  (00  to  15) . 
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DD  Ballistic  wind  direction  in  hundreds  of  mils  (01  to  64) 

(00  for  calm  wind)  • 

FF  Ballistic  wind  speed  in  knots  (00  to  99).  When  wind 

speed  equals  or  exceeds  100  knots,  add  80  to  the 
line  number. 

TTT  Ballistic  temperature  in  percent  of  ICAO  standard  to 

nearest  0.1  percent  (000  to  999),  drop  hundreds 
digit. 

RRR  Ballistic  density  in  percent  of  ICAO  standard  to 

the  nearest  0.1  percent  (drop  hundreds  digit). 

9 Message  terminator  (Punch  output). 

/ Missing  data  indicator. 

(5)  Air  Weather  Service  Message 


The  AWS  meteorological  message  is  comprised  of  a single  meteoro- 
logical bulletin  preceded  by  a header  and  followed  by  the  end  of  trans- 
mission signal(;).  The  message  is  composed  of  figure  groups,  each  group 
has  significance  according  to  its  position  in  the  message  following  the 
section  indicator  or  a particular  self- identifying  group.  When  observed 
datum  is  not  available  for  an  element,  the  appropriate  code  figure  or 
missing  indicator  (/)  is  reported. 

The  AWS  message  is  divided  into  four  parts  (A,  B,  C and  D)  for 
coding  purposes . Only  data  at  or  below  100  mb  are  reported  in  PARTS  A 
and  B.  Only  data  above  100  mb  are  reported  in  PARTS  C and  D. 

The  submessages  reported  are: 

AWS  First  Transmission 


TTAA  - data  up  to  and  including  100  mb  at  isobaric  surfaces. 

(PPAA) 

TTBB  - data  up  to  and  including  100  mb.  Significant  levels 
with  respect  to  temperature  and/or  humidity. 

PPBB  - Wind  data  for  fixed  regional  heights  up  to  and  in- 
cluding 100  mbs. 

AWS  Second  Transmission 

TTCC  - Data  above  100  mbs  at  isobaric  surfaces. 

(PPCC) 

TTDD  - Data  above  100  mbs  to  termination.  Significant  levels 
with  respect  to  temperature  and/or  humidity. 

PPDD  - Wind  data  for  fixed  regional  heights  above  100  mbs. 


(a)  Levels  Reported 


The  mandatory  levels  reported  in  PARIS  A and  C are  the  standard 
isobaric  surfaces  of  1000,  850,  700,  500,  400,  300,  250,  200,  150,  100, 
70,  50,  30,  20,  10,  8,  5,  3,  2,  and  1 mb.  When  the  geopotential  height 
of  one  for  more)  standard  isobaric  surface  is  lower  than  the  altitude 
of  the  station,  the  level  is  reported  and  the  height  is  trended  down. 
Solidi  are  reported  for  temperature,  dew  point  depression  and  the  wind 
group. 


Significant  levels  are  reported  in  PARTS  B and  D.  They  include: 
Surface  data 

Highest  and  lowest  temperature  (nearest  0.1°C) 

Highest  and  lowest  humidity 
Termination  level  for  humidity 
Termination  level  of  the  flight 

A sufficient  number  of  levels  are  included  so  that  for  pressures  of  300 
mb  or  greater,  the  temperature  at  any  level  between  two  adjacent 
significant  levels  selected  for  coding  should  not  differ  more  than  loc 
from  that  obtained  by  linear  interpolation  between  the  two  selected  levels. 
At  pressures  lower  than  300  mb,  the  difference  should  not  exceed  2°C. 

For  the  humidity  criteria,  the  relative  humidity  between  any  two  adjacent 
significant  levels  does  not  differ  by  more  than  10  percent  from  that 
obtained  by  linear  interpolation  between  levels. 

The  tropopause  level  is  defined  as  the  lowest  level  at  which  the  lapse 
rate  decreases  to  2°C/km  or  less,  and  the  average  lapse  rate  from  this 
level  to  any  level  within  the  next  higher  2 km  does  not  exceed  2°C/km. 

If  the  ascent  does  not  reach  at  least  200  mb,  no  attempt  is  made  to  deter- 
mine a tropopause.  If  the  ascent  terminates  less  than  2 km  above  a level 
that  appears  to  be  a tropopause,  a tropopause  is  not  determined.  If  no 
tropopause  level  is  found,  a 88999  code  group  is  reported. 

The  maximum  wind  level  is  defined  as  the  level  where  the  wind  speed  is 
greater  than  that  observed  immediately  above  and  below  that  level.  It 
must  be  above  the  500  mb  level  and  it  must  have  a speed  greater  than  60 
knots.  It  is  determined  from  the  zone  height  levels.  A 77999  code  group 
is  reported  for  a missing  maximum  wind  if  the  ascent  reaches  500  mb. 
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(b)  Air  Weather  Service  Message  Format 


METWOAAAGGOOOrk 
YYhhh 
TTAA 

1TBB 

PPBB 

TTCC 

TTDD 

PPDD 
> 

METW  Designates  Air  Weather  Service  Meteorological  Message . 

Q Octant  of  the  globe  (0  to  8 not  4),  9 if  location 

is  coded . 

AAA  Latitude  in  degrees  and  tenths  (000  to  900) . 

GG  Hour  of  balloon  release  (00  to  23)  • 

000  Longitude  in  degrees  and  tenths  (000  to  999) . When 

longitude  is  equal  to  or  greater  than  100  degrees, 
the  hundreds  digit  is  dropped. 

gg  Minutes  of  balloon  release  (01  to  59) , 

YY  Day  of  the  month  (01  to  31). 

hhh  Altitude  of  the  station  above  mean  sea  level  in  tens 

of  degrees. 

First  Transmission  - (data  up  to  and  including  100  mb  level) 


Part  A - Standard  Isobaric  Surfaces 

KTTAAYYGGIXXXXX 

99PPPTTTDDddfff 

0 OhhhTTTDDddf  f f 

85 

70 

50 

40 

30 

25 

20 

15 

10  

88PPPTTTDDddfff  or  88999 
77PPPddfff4bbaa  or  77999 


> 
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Identification 
Surface  Data 

Standard  Isobaric  Surfaces 


Tropopause  Data 
Maximum  Wind  data 


Part  B - Significant  Levels  with  respect  to  temperature  and/or  humidity 

jm-BBYYGG/XXXXX  Identification 

OOPPPTTTDD  Surface  Data 

IIPPPTTTDD 

22  Significant  Levels 

33 

44 

etc 


Fixed  Regional  Wind  Levels 


HPPBBYYGG0XXXXX 

Identification 

90012 

ddfffddfffddfff 

0,  1,  2- thousand 

foot  wind 

9034b 

ddfffddfffddfff 

3,  4,  6 

90789 

ddfffddfffddfff 

7,  8,  9 

91246 

ddfffddfffddfff 

12,  14,  16 

9205/ 

ddfffddfffddfff 

20,  25 

9305/ 

ddfffddfff 

30,  35 

950X/ 

50, 000- foot  wind 

and  100  mb 

ddfffddfff 

level 

Second  Transmission  - (Data  above  100  mb) 

Part  C - Standard  Isobaric  Surfaces 

mrCCYYGGIXXXXX  Identification 

7 OhhhTTTDDddf  f f 

50  Standard  Isobaric 

30 
20 
10 
07 
05 
03 
02 
01 

88PPPTTTDDddfff  or  88999  Tropopause  Data 

77PPPddfff4bbaa  or  77999  Maximum  wind  data 


Part  D - Significant  Levels  with  Respect  to  Temperature  and/or  Humidity 


IrfTTDDTTGG/XXXXX  Identification 

IIPPPTTTDD 

22  Significant  levels 

33 

44 

etc 


Fixed  Regional  Wind  Levels 

tfPPl)DYYGG0XXXXX 

970// 

ddfff 

990// 

ddfff 

no// 

ddfff 
140// 
ddfff 
17  OX/ 

ddfffddfff 


Identification 

70. 000 - foot  wind 

90 

110 

140 

170.000- foot  wind  and 
termination  of  flight  level 


(c)  Definition  of  AWS  Symbols 
Blank  space 

DD  Depression  of  the  dew  point  temperature  (with  respect  to  water) 
at  the  specified  standard  isobaric  surface  or  significant  level. 
When  the  depression  is  4.9°C  or  less,  it  is  reported  in  tenths 
of  a degree.  When  the  depression  is  more  than  4.9°C,  it  is 
reported  in  whole  degrees  plus  50. 

dd  True  direction  in  tens  of  degrees  (the  hundreds  and  tens  digits 
of  the  observed  direction  rounded  off  to  the  nearest  5°)  from 
which  the  wind  is  blowing  at  the  specified  level. 

fff  Wind  speed  in  knots,  or  knots  plus  500,  if  the  wind  direction 
ends  in  5°. 

GG  Actual  time  of  observation  to  the  nearest  whole  hour  in  GMT. 

hhh  Geopotential  height  in  whole  meters  below  500  mb,  and  tens  of 

meters  for  500  mb  and  above,  for  the  standard  isobaric  surfaces. 
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Wind  indicator  that  specifies  the  hundreds  digit  (Part  A) 
and  the  tens  digit  (Part  C)  of  the  pressure  of  the  last 
standard  isobaric  surface  for  which  a wind  group  is  reported. 


XXXXX  USAF  Position  Location  Code 

PPP  Pressure  at  the  significant  levels.  In  Part  B (up  to  and 
including  100  mb) , these  pressures  are  reported  in  whole 
millibars.  In  Part  I)  (above  100  mb),  pressures  are  reported 
in  tenths  of  a millibar. 

ITT  Approximate  temperature  value  in  tenths  of  degree  Celsius. 

If  the  tenths  digit  is  even,  the  temperature  is  positive. 

If  the  tenths  digit  is  odd,  the  temperature  is  negative. 

bb  Wind  shear  between  the  maximum  wind  and  a level  1000  meters 
below. 

aa  Wind  shear  between  the  maximum  wind  and  a level  1000  meters 
above. 

YY  Day  of  the  month  plus  50  to  indicate  that  the  wind  speeds  are 
in  knots. 


e.  Last  Flight  Section 

This  section  calculates  and  prints  the  meteorological  messages  for  the 
significant  level  data  table  and  the  zone  level  data  table  of  the  last 
flight  that  the  operator  used  to  update  these  files.  This  routine  is 
also  used  by  the  operator  as  an  operational  check  of  the  calculator. 

This  section  is  entered  by  pressing  the  "LAST  FLT"  key.  The  last  flight 
routine  is  exactly  the  same  as  the  output  section  except  that  the  last 
flight  uses  data  files  on  track  one  instead  of  track  zero. 

f . Flight  Information  Section 

This  section  is  entered  by  pressing  the  "INFO"  key.  This  routine 
prints  out  significant  level  and  zone  level  data.  It  is  useful  in  three 
instances: 

1.  To  know  the  actual  meteorological  values  at  any  levels 
desired. 

2.  To  determine  the  pressures  at  the  bottom  and  top  of  layers 
of  missing  data  when  applying  missing  data  rules. 

3.  To  print  after  flight  termination  all  processed  data  for 
mission  record  filing  purposes. 
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L 


vPWP'' 


g.  P.  TAPE  Section 


I 


> 


This  section  is  entered  by  pressing  the  "P.  TAPE"  key.  This 
program  prompts  the  operator  through  the  punching  of  a 180-contact  pressure 
tape  in  the  NWS  format  (see  Table  10  for  example) . This  tape  is  used  in 
the  preflight  section  to  enter  the  baroswitch  calibration  chart. 

h.  PIBAL  Section 

Not  implemented. 

i.  TACFIRE  Section 

This  routine  prints  and  displays  a test  loop  for  a proposed 
tacfire  interface.  The  interface  is  to  be  connected  to  the  REMEX  punch 
circuit  for  automatic  sending  when  the  output  is  punched  on  the  REMEX 
Reader/Perforator . 

>, j . Tables: 


TABLE  1 - SPECIAL  FUNCTION  KEYS 


Fo 

- START 

Starts  meteorological  data  processing  in 
preflight  section. 

F1 

- corn 

Continues  meteorological  processing  in  flight 
section. 

F2 

- LAST  FLT  - 

Calculates  meteorological  messages  for  last 
flight. 

F3 

- TACFIRE  - 

TACFIRE  system  test- loop. 

F4 

- P.  TAPE  - 

Programmed  to  prompt  operator  through  procedures 
to  punch  radiosonde  pressure  calibration  tape. 

F5 

- PIBAL 

Not  implemented  . 

F6 

- INFO 

Activates  after  operator  presses  NO  or  STOP 

key.  When  pressed,  the  program  prints  processed 
meteorological  data  beginning  with  the  last 
significant  level  down  to  the  surface,  pauses, 
then  prints  processed  wind  data  from  surface 
up  to  the  height  of  the  last  meteorological 
zone  level . 

F7  - OUTPUT  - Activates  after  operator  presses  NO  or  STOP 
key.  When  pressed,  LED  display  prompts  the 
operator  to  turn  on  the  tape  perforator,  if 
punched  copy  of  all  meteorological  messages  is 
desired.  The  computer  outputs  printed  hard 
copies  of  all  meteorological  messages. 


DELETE  - Activates  after  operator  presses  NO  or  STOP 
key.  Deletes  punch/print  of  all  unwanted 
meteorological  messages.  Repeating  STOP  - 
DELETE  allows  back  stepping  to  correct  errors 
or  pick  up  omitted  data  for  processing. 

NO  - Used  as  verifier  key,  causes  repeat  of  data 

input  sequence. 


F10  ' 


Used  as  verifier  key,  entered  data  is  saved, 
and  printed  for  the  flight  record. 


Fn  - DATAIN 


Enters  data  into  calculator. 


TABLE  2 - OCTANT  OF  GLOBE  WHERE  STATION  IS  LOCATED 


0 

0°  - 90° 

West  longitude 

North  latitude 

1 

90°-  180° 

II 

IV 

2 

180°-  90° 

East  longitude 

It 

3 

90°-  0° 

II 

II 

4 

Not  used 

5 

0°  - 90° 

West  Longitude 

South  Latitude 

6 

90° - 180° 

II 

II 

7 

180°  - 90° 

East  Longtitude 

II 

8 

90° - 0° 

II 

II 

9 

Coded  location 

indicator 

TABLE  3 - BAUDOT  CODE  (TTY- 76) 

Lnary 

Letters 

Figures 

Binary 

Letters  ] 

Figures 

0 

Null 

Null 

16 

E 

3 

1 

T 

5 

17 

Z 

II 

2 

CR 

CR 

18 

D 

$ 

3 

0 

9 

19 

B 

? 

4 

Space 

Space 

20 

S 

Bell 

5 

H 

# 

21 

Y 

6 

6 

N 

22 

F 

1 

7 

M 

# 

23 

X 

/ 

8 

LF 

LF 

24 

A 

9 

L 

) 

25 

W 

2 

10 

R 

4 

26 

J 

V 

11 

G 

$ 

27 

FI 

FI 

12 

I 

8 

28 

U 

7 

13 

P 

■0 

29 

Q 

1 

14 

C 

30 

K 

c 

15 

V 

9 

31 

LE 

LE 

Carriage  return;  LF  - Line  feed;  FI  - Figures;  LE  - Letters. 


TABLE  4 - ASCII  CODE  (UGC-74) 


W 


ASCII 

EQUIVALENT  FORMS 

ASCII 

EQUIVALENT  FORMS 

Char. 

Binary 

Octal 

Dec 

Char. 

Binary 

Octal 

Dec 

NULL 

00000000 

000 

0 

DLE 

00010000 

020 

16 

SOH 

00000001 

001 

1 

DC! 

00010001 

021 

17 

STX 

00000010 

002 

2 

dc2 

00010010 

022 

18 

ETX 

00000011 

003 

3 

dc3 

00010011 

023 

19 

EOT 

00000100 

004 

4 

DC4 

00010100 

024 

20 

ENQ 

00000101 

005 

5 

NAK 

00010101 

025 

21 

ACK 

00000110 

006 

6 

SYNC 

00010110 

026 

22 

BELL 

00000111 

007 

7 

ETB 

00010111 

027 

23 

BS 

00001000 

010 

8 

CAN 

00011000 

030 

24 

HT 

00001001 

Oil 

9 

EM 

00011001 

031 

25 

LF 

00001010 

012 

10 

SUB 

00011010 

032 

26 

Vtab 

00001011 

013 

11 

ESC 

00011011 

033 

27 

FF 

00001100 

014 

12 

FS 

00011100 

034 

28 

CR 

00001101 

015 

13 

GS 

00011101 

035 

29 

SO 

00001110 

016 

14 

RS 

00011110 

036 

30 

SI 

00001111 

017 

15 

US 

00011111 

037 

31 

space 

00100000 

040 

32 

N 

01001110 

116 

78 

• 

00100001 

041 

33 

0 

01001111 

117 

79 

m 

00100010 

042 

34  * 

P 

01010000 

120 

80 

# 

00100011 

043 

35 

Q 

01010001 

121 

81 

$ 

00100100 

044 

36 

R 

01010010 

122 

82 

% 

00100101 

045 

37 

S 

01010011 

123 

83 

5 

00100110 

046 

38 

T 

01010100 

124 

84 

1 

00100111 

047 

39 

U 

01010101 

125 

85 

( 

00101000 

050 

40 

V 

01010110 

126 

86 

) 

00101001 

051 

41 

w 

01010111 

127 

87 

• 

00101010 

052 

42 

X 

01011000 

130 

88 

+ 

00101011 

053 

43 

Y 

01011001 

131 

89 

f 

00101100 

054 

44 

z 

01011010 

132 

90 

- 

00101101 

055 

45 

[ 

01011011 

133 

91 

• 

00101110 

056 

46 

\ 

01011100 

134 

92 

/ 

00101111 

057 

47 

] 

01011101 

135 

93 

0 

00110000 

060 

48 

A 

01011110 

136 

94 

1 

00110001 

061 

49 

01011111 

137 

95 

2 

00110010 

062 

50 

r 

01100000 

140 

96 

3 

00110011 

063 

51 

a 

01100001 

141 

97 

4 

00110100 

064 

52 

b 

01100010 

142 

98 

5 

00110101 

065 

53 

c 

01100011 

143 

99 

6 

00110110 

066 

54 

d 

01100100 

144 

100 

7 

00110111 

067 

55 

e 

01100101 

145 

101 

8 

00111000 

070 

56 

£ 

01100110 

146 

102 

9 

00111001 

071 

57 

g 

01100111 

147 

103 

l 

00111010 

072 

58 

h 

01101000 

150 

104 

9 

00111011 

073 

59 

i 

01101001 

151 

105 

< 

00111100 

074 

60 

j 

01101010 

152 

106 

— 

00111101 

075 

61 

k 

01101011 

153 

107 

> 

00111110 

076 

62 

1 

01101100 

154 

108 

? 

00111111 

077 

63 

m 

01101101 

155 

109 

§ 

01000000 

100 

64 

n 

01101110 

156 

110 

21 


ASCII 

EQUIVALENT  FORMS 

ASCII 

Char. 

Binary 

Octal 

Dec 

Char. 

Binary 

Octal 

Dec 

A 

01000001 

101 

65 

o 

01101111 

157 

111 

B 

01000010 

102 

66 

P 

01110000 

160 

112 

C 

01000011 

103 

67 

q 

01110001 

161 

113 

D 

01000100 

104 

68 

r 

01110010 

162 

114 

E 

01000101 

105 

69 

s 

01110011 

163 

115 

F 

01000110 

106 

70 

t 

01110100 

164 

116 

G 

01000111 

107 

71 

u 

01110101 

165 

117 

H 

01001000 

110 

72 

V 

01110110 

166 

118 

I 

01001001 

111 

73 

w 

01110111 

167 

119 

J 

01001010 

112 

74 

X 

01111000 

170 

120 

K 

01001011 

113 

75 

y 

01111001 

171 

121 

L 

01001100 

114 

76 

z 

01111010 

172 

122 

M 

01001101 

115 

77 

{ 

01111011 

173 

123 

! 

01111100 

174 

124 

} 

01111101 

175 

125 

01111110 

176 

126 

DEL 

01111111 

177 

127 

22 





Zone  structure  of  the  NATO,  computer,  and  fallout  metro  messages 
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TABLE  6 - STANDARD  BALLISTIC  TABU-  7 - STANDARD  BALLISTIC 

ZONE  DENSITIES  ZONE  IWERATURES 


t 

! 

Zone  No. 


0 

1225.0 

Zone  No.  0 

288.2 

I 

1213.3 

1 

287.5 

2 

1184.4 

2 

285.9 

3 

1139.2 

3 

283.3 

4 

1084.6 

4 

280.0 

5 

1032.0 

5 

276.8 

6 

957.0 

6 

271.9 

7 

863.4 

7 

265.5 

8 

777.0 

8 

259.0 

9 

697.4 

9 

252.5 

10 

590.0 

10 

242.7 

11 

467.0 

11 

229.8 

12 

364.8 

12 

216.8 

13 

266.6 

13 

216.7 

14 

194.8 

14 

216.7 

15 

142.3 

15 

216.7 

r 
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TABLE  8.  a.  TEMPERATURE  WEIGHTING  FACTORS  (TYPE-3  MESSAGE) 
(SURFACE-TO-SURFACE  TRAJECTORIES) 
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TABLE  10  - NWS  FORMAT  FOR  PRESSURE  CALIBRATION  TAPE 
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HIMIDITY  TABLE 


Column  14  = dry  bulb  temperature  °C 
Row  1 = Relative  Humidity  in  % 

Rows  2-15  = Resistance  of  humidity  in  ohms 


TABLE  12  - J005  HUMIDITY  TABLE 
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Column  14  = Dry  bulb  tenperature  °C 
Row  1 = Relative  Kkjmidity  in  % 

Rows  2-15  = Resistance  of  hiinidity  element  in  ohms 


2.  FILE  DESCRIPTION 


The  Hewlett-Packard  cartridge  has  two  tracks  of  data.  The  files 


Track  0 

Section 

File 

0: 

Master  Supervisory  File 

) Command 

File 

1: 

Functional  key  definitions 

) supervisor 

File 

2: 

Date,  Survey,  Linearity,  Pressure 

) 

File 

4: 

Ar*l 

) Preflight 

File 

5: 

Baseline,  Launch 

) 

File 

6: 

Trunk 

) 

File 

7: 

W$.  u$,  V$,  B[*l 

) 

File 

8: 

k[*i > £[*],  xM 

) 

File 

9: 

P$,  Q$ , 0$,  L$,  N$.  C$,  D$ 

■j  Flight 

File 

10: 

F[*] , Y[*] 

) 

File 

11: 

H[*] 

) 

File 

12: 

Sound  ranging,  computer  meteorology,  ) 

fallout,  ballistic  3 

) 

File 

13: 

Ballistic  2 

File 

14: 

AWS  First  Transmission 

j Output 

File 

15: 

Last  flight  update 

) 

File 

16: 

AWS  Second  transmission 

) 

File 

3: 

Not  used 

Track  1 

Section 

File 

0:  W$,  U$,  V$,  B[*] 

) 

P.  TAPE 

File 

2:  P.  TAPE 

) 

File 

1:  PIBAL  (Not  used) 

) 

PIBAL 

File 

3:  TACFIRE 

) 

TACFIRE 

File 

4:  Sound  Ranging,  Computer  Met, 

) 

Fallout,  Ballistic  3 

) 

File 

5:  P$,  Q$,  0$,  L$ , N$ , G$,  D$ 

) 

File 

6:  F[*],  Y[*] 

7:  H[*] 

) 

) 

Last  Flight 

File 

File 

8:  Ballistic  2 

) 

File 

10:  AWS  First  Transmission 

) 

File 

11:  AWS  Second  Transmission 

) 

File 

9:  INFORMATION 

) 

INFO 
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c.  T list  Files 


The  following  is  a t list  of  the  files  on  track  0 and  1 showing 
the  size  of  the  files  and  the  amount  of  bytes  stored  in  each  file. 


trk  0 

T LIST 

TRACK  0 

T LIST 

TRACK  1 

trk  1 

#0 

Bytes 

Size 

#0 

Bytes 

Size 

6 

692 

1000 

3 

1272 

5000 

#1 

#1 

5 

800 

1000 

6 

5106 

10C  00 

#2 

#2 

6 

15628 

20000 

6 

6272 

10000 

#3 

#3 

3 

24 

100 

6 

212 

5000 

#4 

#4 

2 

88 

500 

6 

13078 

15000 

#5 

#5 

6 

15358 

20000 

3 

420 

500 

#6 

#6 

6 

11032 

12000 

2 

2992 

5000 

#7 

#7 

3 

1272 

1500 

2 

2304 

3000 

#8 

#8 

2 

2064 

2500 

6 

7620 

13000 

#9 

#9 

3 

420 

500 

6 

2136 

5000 

#10 

#10 

2 

2992 

5000 

6 

11488 

15000 

#11 

#11 

2 

2304 

3000 

6 

7112 

15000 

#12 

#12 

6 

12876 

15000 

0 

0 

0 

#13 

6 

7612 

13000 

#14 

6 

11478 

15000 

#15 

6 

444 

8000 

#16 

6 

7106 

15000 

#17 

0 

0 

0 
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3.  VARIABLE  DESCRIPTION 


a.  Array  Variables 


dim  A[  11]  - Launch  values 


A[l]  = Azimuth  offset  at  launch  A[ll]  = Flight  Counter 

A[2]  = Horizontal  distance  offset 

A[ 3]  = Surface  wind  direction 

A[4]  = Surface  wind  speed 

A [5]  = Surface  press  at  launch 

A[6]  = Corrected  surface  temperature 

A[7]  = Not  used 

A[8]  = Corrected  surface  humidity 

A[9]  = Surface  virtual  temperature 

A [10]  = Preflight/continue  flag 
A 11  = Flight  Counter 

dim  B[25]  - Baseline  values 

B[l]  = Thermistor  resistance  RT 
B [2]  = Temperature  ordinate  value  ’Temp  Comp"  input 

B[3]  = Low  Temperature  Reading 

B[4]  = Normalized  temperature  RD  "Correcting  RD"  input 

B[5]  = RD  correction  at  baseline  "Temp  Comp"  output 

B[6]  = Recorder  value  above  temperature  ordinate  "Correcting  RD" 

B[7]  = Recorder  value  below  temperature  ordinate  "Correcting  RD" 

B[8]  = RD  correction  at  B[6]  "Correcting  RD" 

B [9]  = RD  correction  at  B[7]  "Correcting  RD" 

BL10J  = RD  correction  for  normalized  temperature  RD  "Correcting 
RD"  output 

B[ll]  = Baseline  humidity  constant 

B[12]  = Baseline  temperature  calibration  constant 

B[13]  = Not  used 

B[14]  = Last  pressure  contact 

B[15]  = Surface  pressure 

B[16]  = Auto  contact  correction 

B[17]  = Pressure  (higher)  at  whole  contact  below  surface 
B[18]  = Contact  at  B[17] 

B[19]  = Pressure  (lower)  at  whole  contact  above  surface 
B[20]  = Contact  at  B[19] 

B[21]  = Not  used 

B[22]  = Geopotential  height  constant  for  V$ 

B[23]  = Pressure  scaling  factor  for  V$ 

B[24]  = Index  into  V$  for  surface 

B[25]  = Baseline  humidity  calibration  constant 


dim 


C[0:16,  1:14]  - Ballistic  weights  and  values 
0:16  - zones  where  0 - surface 

1-15  - lines 


C[N,1] 

C[N,2] 

C [N  ,3] 
C[N,4] 
C[N, 5] 

C [N ,6] 

C[N,7] 

C [N , 8 ] 

C[N,9] 

C[N,10] 

C[N,11] 

C[N,12] 

C[N,13] 

C[N,14] 


Zone  level  number 
Wind  speed 
Temperature 
Pressure 
Wind  azimuth 

% of  standard  temperature 
Weighted  ballistic  3 temperature 
Weighted  ballistic  2 temperature 
Densities 

% of  standard  density 

Weighted  ballistic  3 densities 

Weighted  ballistic  2 densities 

Weighted  ballistic  3 or  2 X wind  component 

Weighted  ballistic  3 or  2 If  wind  component 


dim  E [ 14 , 15]  - Humidity  tables 

Table  11  - AN/AMT-4  Radiosonde 

Table  12  - J005  Radiosonde 


dim  F[-l:60,  1:6]  - Significant  level  data 
at  -1  level 


#1  #2  #3  #4_ 

Azimuth  offset  Horizontal  First  Second 

distance  Missing  Missing 

Mandatory  Mandatory 


#5 

Third 

Missing 

Mandatory 


#6 

Fourth 

Missing 

Mandatory 


at  0 level 
1-60  levels 


#1 

Temperature 

°C 


#2  n #4 

Humidity  Temp  virt  Pressure 

% °K  mb 


#_5 

Time  min 


#6 

Geopotential 
height  meters 


dim 


H[-2:45,  1:6]  - Zone  height  data 
at  -2  level 

#1  #2  #3  #4 


at  -1  level 

#1  #2  #3 

SFC 
pressure 


#4 

SFC  temp 
Tv  °K 


#6 

SFC  Wind  SFC  Wind 
Direction  Speed 

#5  #6 

Azimuth  Horizontal 
Offset  distance 


at  0-45  levels 


#1 

Geometric 

height 


#2  #3 

log  press  miscellan- 
eous 


#4 

top  ofTone 
time 


#5 

top  oF  zone 

azimuth 

angle 


#6 

top  of  zone 

elevation 

angle 


Miscellaneous 


H[0 ,3]  = 

H[l,3]  = 

H[2,3]  = 

H[ 3 , 3]  = 
H[4,3]  = 

H[5,3]  = 

H [6 , 3]  = 

H[7 ,3]  = 

H[8,3]  = 

H[9,3]  = 

H[10,3]  = 
H[ 11 ,3]  = 
H[ 12 ,3]  = 
H[13,3]  = 
H[14,3]  = 
H[15,3]  = 


Acceleration  of  Gravity  Ratio  Constant 

P = zone  level 

T = significant  level 

Missing  angles  indicator 

Angle  time  interval  (0.1,  0.5,  1.0) 

Last  correct  time  of  angles 

Last  correct  elevation  angle 

Last  correct  azimuth  angle 

Time  below  zone 

Elevation  angle  below  zone 

Azimuth  angle  below  zone 

Time  above  zone 

Elevation  angle  above  zone 

Azimuth  angle  above  zone 

Reference  time  below  zone 

Reference  time  above  zone 


dim  K[23,2] 

Humidity  Recorder 

Divisions  (RD) 

Tables 

TABLE  13:  Humidity  RD 

Table  for  AN/ AMT- 4 Radiosonde 

Hum  RD 

Value 

Hum  RD 

Value 

Hum  RD 

Value 

0 

-735 

32 

1289 

64 

2016 

4 

0 

36 

1384 

68 

2119 

8 

384 

40 

1479 

72 

2232 

12 

625 

44 

1568 

76 

2359 

16 

800 

48 

1645 

80 

2509 

20 

945 

52 

1741 

84 

2692 

24 

1070 

56 

1830 

88 

2952 

28 

1184 

60 

1919 

(Values  of  resistance  represent  the  difference  between  measured  resistance 
at  any  altitude  and  the  baseline  resistance.) 


TABLE  14: 

UrnnHity  RI)  Table 

for  J005 

Radiosonde 

Hum  RD  Value 

Hum  RD 

Value 

Hum  RD 

Value 

0 

-28700 

32 

-4967 

64 

3394 

4 

-22700 

36 

-3846 

68 

4567 

8 

-17700 

40 

-2770 

72 

5831 

12 

-13700 

44 

-1736 

76 

7234 

16 

-10962 

48 

-748 

80 

8852 

20 

-9017 

52 

245 

84 

10977 

24 

-7522 

56 

1264 

88 

13000 

28 

-6180 

60 

2298 

(Values  of  resistance  represent  the  difference  between  the  measured  re- 
sistance at  any  altitude  and  the  baseline  resistance.) 

dim  M[3,45]  - AWS  wind  data 
N - zone  level 

M[1,N]  - height  for  zone  N 

M[2,N]  - wind  direction  for  zone  N 

M[3,N]  - wind  speed  for  zone  N 


dim  X [2]  - Calibration  factors 

X[l]  - Baseline  temperature 
X [ 2 ] - Baseline  humidity 


b . String  Variables 

A$ , B$,  C$  - string  areas 
D$  [16]  * date  of  flight 

Date -Time  Group  Format: 

DDKlTT'i HMWtfYYiJ  DD  - numerical  day  of  month  (01  to  31) 

mr  - time  value  (0001  to  2400) 

NfM  - alphabetic  designation  of  month 
(JAN- EEC) 

YY  - year  (00  - 99) 

- blank 


E$  [16]  - string  array  for  linearity 

F$  [15]  - wind  data  strings 

G$  [192]  - recorder  check  linearity  data 

H$  [2,32]  - Baudot  conversion  array 

L$  [16]  - recorder  check  date -time  group 

N$  [6]  - Recorder  serial  number 

0$  [16]  - previous  survey  date -time  group 
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dim  P$ [102] 


Header  array 


P$  [1,12] 

P$  [13,24] 
P$  [25,36] 

P$  [37,48] 
P$  [49,60] 

P$  [61,72] 

P$  [73,84] 

P$  [85,99] 

P$  [100,100] 
P$  [101,101] 
P$  [102,102] 


ter  meteor- 
:al  message. 

2 

Lit 

Ranging 


dim  Q$  [16]  - AWS  Data 

Q$  [1,5]  - AWS  Location  code 

Q$  [6,13]  - trending  data  for  1000  and  850  mb  levels 
Q.$  [14,16]-  not  used 


dim  U$  [895]  - Standard  Pressure  Table 

See  Table  10  for  pressure  values 


dim 

V$ 

[96] 

dim 

W$ 

[561 

15  contact  pressures 
Mandatory  contact  levels  (AWS) 


Low  altitude  mbs 


T0OT5  850“  700 

500 

400 

300 

250 

200 

150 

100 

High  altitude  mbs 

70  50  30 

20 

10 

7 

5 

3 

2 

1 

c.  r - variables 


Extensive  use  of  r- variables,  rl  through  r!5,  is  made  in  the  ballis- 
tic messages.  'ITiese  variables  hold  the  weighting  factors  that  are  applied 
to  density,  temperature,  and  wind  components.  They  represent  the  zone 
levels  1 to  15. 


4.  FLOW  CHARTS, 
a.  System. 


3*3  § 3 Z!|3!  § 3 2 332  3 


Power-Up 
Autoload 
vl'rack  i g 

i_ 

Print 

Program 

Title 


Print 

Program 

Date 


Print 

Version 

Number 


Print 

Counter 

Number 


6-21 

Load 

and  Activate 

Functional 

Keys 


Figure  2.  Autoload  and  Master  Supervisory  File  (Track  0 File  0) 


Update 


Figure  4c.  Preflight  Continued  (3  of  10) 


Enter  15 

Contact 

Pressures 


241-263 


304-313 


Figure  4h.  Pre flight  Continued  (8  of  10) 


314-317 


318-330 


331-346 


347-356 


357-369 


Figure  4i.  Preflight  Continued  (9  of  10) 


Figure  4m.  Preflight  Continued  (3  of  5) 


No 


Compute  1 286-306 

Autocontact 
Correction 
Between 

iBaseline  & Lalmch 


Enter 

| SFC  Temp  RD 
-U  to  901 


307-311 


312-31*4 


315-319 


320-321 


Correct 
Reading  for 
Temperature 

and  compute 
surface 

tempera!,  lire 


322-326 


jCorreet 
Reading  for 
Humidity  and 
Compute 

aurfftCR.  Humid 


327-332 


Figure  4n.  Preflight  Continued  (4  of  5) 


Figure  5b.  Flight  Continued  (2  of  5) 


^ 0-6 


7-8 


y-12 


13-19 


20-22 


91-98 


Figure  6a.  Output  Sound  Ranging,  Fallout  Ballistic  Met  3 
(Track  0 File  12)  (1  of  5) 


64 


I I 


Sound 

.Ranging, 


i 

Computes 
Wind  Speed 
and 

Direction  foi 


99-111 


Load 

Structure 
j Weight 
1 Factors 


112-115 


at 

Calcui,ate  • n6=-i  pg 
Weighted  Sum 
of  Surface  .20(M, 

14  00M,600M,8001: 

Wind  Components 


Compute  127-130 
Effective  ' ■L:JU 
Wind  Speed  & 
Direction 


Calculate 

Sonic 

Temperature 


31-135 


Print  Sound 
Ranging 


Figure  6b.  Output  Continued  (2  of  5) 
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Print 
Header 

Calculate 

and 

Print 

Surface  Line 

i_. 

Calculate 
and  Print 
2 6 

I Zone  Lines 


Print 

Message 

Terminator 


Fallout! 
Met  I 


11*6-151+ 


155-161 


162-181+ 


185 


Figure  6c.  Output  Continued  (3  of  5) 
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Fallout 


201-227 


230-238 


239-2^6 
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Figure  6d.  Output  Continued  (4  of  5) 
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i 


Figure  6e.  Output  Continued  (5  of  5) 
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Figure  6f.  Output  Ballistic  Met  2 (Track  0 File  131 
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Figure 


Dimension 
and  Load 
Variables 
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P.U5-152 


~ tL60-174 


Calculate 

Surface 

Line 


CL75-18U 


185-195 


196-209 


6g.  Output  AWS  1st  Transmission 
(Track  0 File  14)  (1  of  3) 


70 


Figure  6h.  AWS  Output  Continued  (2  of  3) 
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Calculate 
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Last 
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AWS  CXitput  Continued  (3  of  3) 
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Figure  6i. 
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155-197 


Figure  6j . Output  AWS  2nd  Transmission 
(Track  0 File  16)  (1  of  2) 
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198-200 


201-233 


Figure  6k.  AWS  Output  Continued  (2  of  2) 
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Figure  61.  Last  Flight  Update 


f.  Flight  Information. 
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Figure  7.  Flight  Information  (Trr 'V  1 File  9) 
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h.  TACFIRE 


Figure  9.  TACFIRE  (Track  1 File  3) 
78 


5. 


SAMPLE  TEST  CASE. 


Part  a shows  three  flights  conducted  using  the  Meteorological  Data 
Reduction  Program. 

Part  b is  the  teletape  output  generated  by  the  OUTPUT  section.  The 
UGC-74  teletape  computer  met  message  is  in  the  correct  format  for  the 
FADAC  and  the  AWS  messages  are  in  the  correct  format  for  the  Air  Weather 
Service. 


51.10 
51.  SO 

51.20 

51.20 
50.85 

50.70 

50.50 


07 . 1 

07.5 
07.6* 
07.7 
07. 0 

07.0 
0(3.0 


28.90 

28.80 

29.70 

30.20 
31.85 

33.20 
.70 


50.55 

50.65 

50.65 
50. 10 
50.  Uo 
50 . 1*0 

50.1(0 

50.30 

50.30 

50.1(5 


09.1 

09.2 
09.3* 
09.  1 

09.5 

00.6 

09.7 

09.8 
09.9 
10.0 


^3.05 
1(1. 60 
1(5.80 

16.50 

17.05 
18.25 
18.95 
19.80 
50.20 

50.70 


19.85 

11.0 

58.25 

19.70 

11.1 

59.70 

19.60 

11.2 

59.80 

19.55 

11.3* 

60.60 

19.10 

11.1 

61.25 

19.00 

11.5 

61.95 

18.65 

11.6 

62.85 

18.50 

11.7 

62.95 

18.30 

11. a 

63.70 

18.05 

11.9 

61 . 50 

17.70 

12.0 

65.10 

16.55 

16.30 

16.20 

16.10 

16.10 

16.10 

16.10 


12.9 

13.0 
13.1* 

13.2  . 

13.3 

13.1 

13.5 


70.15 

70.75 

71.65 

72.30 

73.05 

73.75 

71.65 


52.25 

52.35 

52.15 

52.50 

52.50 

52.30 

52.30 


05.6 

05.7 

05.8 
05.9* 
06.0 

06.1 

06.2 


015.30 

016.15 
016.85 
017.55 
017. 10 

018.15 
017.75 


12.80 

ll.8 

88.70  , 

12.55 

11.9* 

89.80 

12.20 

15.0 

90.65 

11.90 

15.1 

91.50 

11.30 

15.2 

92.60 

10.00 

15.3 

93.25 
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MANUFACTURING  CO 


.1  * 


00.85 

00.0 

176.65 

23.85 

00.1 

188.00 

36.30 

00.2 

192.55 

38.55 

00.3 

196.50 

39.40 

00.4 

195.20 

40.00 

00.5 

00.5* 

197.55 

38.30 

00.6 

196.25 

39.45 

00.7 

196.15 

38.55 

00.8 

196.50 

38.95 

00.9 

196.90 

38.95 

01.0 

197.30 

39-40 

Oi.l 

196.25 

39.40 

01.2 

197.25 

40.50 

01.3 

198.20 

40.55 

01.4 

198.50 

41-25 

01.5 

198.50 

41.95 

01.6 

199.45 

41-95 

01.7 

199.40 

41-85 

01.6 

199.35 

41-60 

01.9 

201,53 

42.70 

02.0 

02.0* 

203.20 

43-60 

02.1 

204.30 

44.50 

02.2 

204.50 

44-25 

02.3 

204.90 

45.40 

02.4 

205.40 

46.30 

02.5 

207.35 

47-20 

02.6 

210.15 

47.35 

02.7 

211.70 

48- 40 

49- 65 

02.8 

02.9 

213.50 

213.85 

50.30 

03.0 

214.40 

51.55 

03.1 

214.25 

52.30 

03.2 

214.55 

52.85 

03.3 

215.10 

53.05 

03.4 

03.4* 

215.30 

! 54.10 

03.5 

214.60 

1 55.95 

03.6 

214.40 

1 56.35 

03.7 

213.05 

57.50 

03.8 

213.00 

, 67.85 

05.0 

203.20 

; 68.75 

05.1 

201.30 

■ i 

05.1* 

1 70.15 

05.2 

200.45 

, 72.55 

05.3 

198.30 

! 72.60 

05.4 

198.25 

72.95 

05.5 

198.05 

! 74.50 

05.6 

193.65  . 

• ! 73.95 

05.7 

190.50  ' 

74.10 

05.8 

188.15 

74.65 

05.9 

184.35 

74.45 

06.0 

181.50 

73.45 

06.7 

154.45 

73.60 

06.8 

150.50 

73.95 

06.9 

147.80 

06.9* 

72.95 

07.0 

144.15 

72.50 

07.1 

141.45 

71.70 

07.2 

139-85 

71.60 

07.3 

136.50 

71.60 

C7.4 

133.15 

71.05 

07. 5 

130.70 

70.85 

07.6 

126.35 

70.65 

07. 7 

122.75 

70.35 

07.8 

118.15 

63.00 

08.9 

103.40 

62.15 

09.0 

102.20 

61.45 

09.1 

101.15 

60.45 

09.2 

100.00 

60.00 

09.3 

99.30 

58.85 

09*4 

98.80 

58.20 

09.5 

98.10 

57.20 

09.6 

97.60 

56.70 

09.7 

97.05 

55.55 

09.8 

97.00 

54.65 

09.9 

96.30 

52.50 

10.0 

95.75 

47.30 

46.6 0 
46.15 
45-30 
44.45 
43.90 
43.25 
42.75 
42.80 


10.8 
10.8* 
1C. 9 

11.0 

11.1 

11.2 

11.3 

11.4 

11.5 

11.6 


39.15  12.5 
37.80  12.6 
37.50  12.7 
37.20  12.8 
36.85  12.9 
12.9* 

36.35  13.0 
36.25  13.1 
35.60  13.2 


92.70 

92.40 

92.05 

91.90 

91.95 

92.00 

92.35 

92.55 

92.75 


92.50 

92.30 

92.10 

91.80 

91.60 

91.45 

91.55 

91.60 


32.05 

14*3 

93.00 

^31.65 

14*4 

73.20 

31.60 

14.5 

93.20 

31.55 

14*6 

93.30 

31.20 

14.7 

93-25 

31.90 

14*8 

93.15  . 

30.60 

14.9 

93  05 

30.35 

15.0 

93.00 

• 5.0* 

30.35 

15.1 

92.90 

29.80 

15.2 

92.90 

29.50 

15.3 

92.80 

29.<*9 

15.4 

92.75 

- 

28.60 

28.45 

28.25 

28.00 

17.70 
27.75 

27.70 
27.35 
27.15 
27.00 
26.85 


25.30 
24.90 
24*40 
24.65 
24.5 0 
24.20 
f24.15 
24.00 
V 23.90 
t 23.75 


92.35 

92.35  i 

92.40  , 

92.40 

92.40 

92.40 

92.40 

92.20 

92.10  ;! 

91.90  H 

91.85 


91.30 

91.20 

91.10 

91.05 

91.00 

90.95 

90.65 

90.80 

90.80 

90.70 


At.  • ' W 
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DELCS-TR-79-1 


NL 


00.85 

00.0 

176.65 

23.85 

00.1 

188.00 

| 36.30 

00.2 

192.55 

38.55 

00.3 

196.50 

1 39.40 

00.4 

195.20 

40.00 

00.5 

197.55 

00.5* 

38.30 

00.6 

196.25 

I 39.45 

00.7 

196.15 

33.55 

00.8 

196.50 

38.95 

00.9 

196.90 

' 38.95 

01.0 

197.30 

1 39.40 

01.1 

196.25 

39.40 

01.2 

197.25 

40.50 

01.3 

198.20 

40.55 

01.4 

198.50 

41.25 

01.5 

198.50 

! 41.95 

01.6 

199.45 

i 41.95 

01.7 

199.40 

41.85 

01.8 

199.35 

i.1.60 

01.9 

201,55 

42.70 

02.0 

203.20. 

02.0* 

' 43.60 

02.1 

204.30 

44.50 

02.2 

204.50  • 

44.25 

02.3 

204.90 

45.40 

02.4 

205.40 

46.30 

02.5 

207.35 

47.20 

02.6 

210.15 

1 47.35 

02.7 

211.70 

48.40 

02.8 

213.50 

49.65 

02.9 

213.85 

50.30 

03.0 

214.40 

51.55 

03.1 

214.25 

52.30 

03.2 

214.55 

52.85 

03.3 

215.10 

53.05 

03.4 

215.30 

03W»* 

— 

64.90 

04.8 

206.10 

66.40 

04.9 

203.20 

67.85 

05.0 

203.20 

68.75 

05.1 

201.30 

05.1* 

70.15 

05.2 

200.45 

72.55 

J>5_.3^ 

198.30 

74.15 

06.5 

161.80 

73-70 

06.6 

153.75 

73.45 

06.7 

154.45 

73.60 

06.8 

150.50 

73.95 

06.9 

147.80 

uo.y* 

67.75 

C'3.3 

106, HU 

67.15 

OR.  4 

107.55 

66.30 

08.5 

105.50 

65.60 

08. 6 

105.65 

64.95 

OH. 7 

105.10 

63.75 

03.8 

103.90 



08.8* 

50.70 

10.3 

50.45 

10.4 

49.25 

10.5 

48.55 

10.6 

48.00 

10.7 

47.30 

10.  e 

24.90 

24.80 

24.65 

24.50 

24.20 

24.15 

24.00 


75 
94.20 
93*80 
93-35 
93*00 
92.70 


41.80  11.9 

40.55  12.0 

40.05  12.1 
39.60  12.2 

39.20  12.3 
38.70  12.4 


33.60  13.8 
33.35  13.9 

33.10  14.0 

32.75  14*1 
32.40  14.2 

32.05  14.3 


93.2U 

92.40 

93.45 

93.25 

93.00 

92.75 


I 


92.45 

92.60 

92.75 

92.85 

92.90 

93.00 


28.60 

15.8 

92.35 

28.45 

15.9 

92.35 

28.25 

16.0 

92.40 

28.00 

16.1 

92.40 

17.70 

16.2 

92.40 

27.75 

16.3 

92.40 

27,70 

10.4 

92.40 

91.20 

91.10 

91105 

91.00 

90.95 

90.85 

90.00 


20.15  a. 6 

20.05  21.7 
20.00  21.8 
1 9.85  21.9 
19.70  22.0 
19.65  22.1 
19.55  22.2 
19-45  22.3 


14.55  25.3 
1.6*z*0  25*4 

16.45  25.5 
16.25  25.6 

16.15  25.7 

16.05  25.8 


13.30  29.4 

13.20  29.5 

13.15  29.6 

13.10  29.7 

13.05  29.8 

13.05  29.9 

13.00  30.0 


89.55 

09.45 

89.45 
89.35 

89.25 

09.25 
89.15 
89.00 


68.10 

88.10 

88.10 

83.10 
88.05 

88.10 


88.45 

83.50 

83.55 

88.50 

88.55 
88.55 
88. 55 


32.8* 

11.30  32.9  87.65 

LI. 30  33.0  87.60 

21.25  33.1  87.55 

11.20  33.2  87.55 

11.10  33.3  87.55 

11.10  33.4  87.50 

11.00  33.5  87.45 


10.25 

36.7 

87.20 

10. 25- 

36.3 

87.20 

DO. 20 

36.9 

87.20 

10.20 

37.0 

87.20 

10.10 

37.1 

67.20 

10.05 

37.2 

67.15 

10.  CO 

37.3 

87.15 

10.00 

37.'+ 

87.15 

10.00 

3?.5 
37.5  * 

87.15 

\ 

I 


METSF 1 34790 2 

08  1440+07023208 

9 


HETC-'.  134793  3 
C 8 1440226909 
C0 196CC4263EC939 
• C 1 2 1 1 C 1 G 2.8  1 9 29  7 7 

02272909  277829  48 
P 3 37 53 08 2 7 39 09 02 
044160 1O27060O47 
0542500926710795 
064770 1 326380746 
0753101326530700 
0350C0  1825940656 
0-9  555023  256 306  1 4 
9 

METFM1 347933 
03  1 4403  36TF.0 
00  196004 
01 373007 
02510017 
9 

(i,  METE3 134798  3 

08 1440036976 
G32004934992 
0121  1098  1995 
322609974000 
033407970003 
043308968004 
054003967004 
064610976998 
0751  1 5973997 
9 


I 


'tETP.21  347933 

08  1 440036976 
002004984992 
0121  1098  1995 
0224C9977998 
03290797403  1 
04330797  2CC  3 
253607971003 
064107971002 
074508972000 

9 


tlETVl  347  14  95327  38C36 
TTAA  58147  PE123  99989  09364 
03357  23510  70///  /////  ///// 
TTEB  5814/  PB123  00989  09864 
C 3 5 59  44780  03561v  55737  02963 
14959  99586  21  147; 

PPBE  58  1-40  PB123  90023  11004 
24010  9089/  26012  27013  9123/ 


11004  00263  /////  /////  85533 
38999 J 

11935  02453  22850  03357  33S21 
66700  03361  77655  14760  38623 

13511  20005  90467  21510  23510 
28519  30525; 


riETrn  3*7933 

PS 1*30+ 1 27C2507 
9 


HUTCH l 3*798 3 
08 1*30236902 
CC 569  3 1 328  5 1 C980 
0 1 C 5 1 037 28  5609  68 
P 22* 1 009  28  5609  *0 
031 23 0052770 0895 
0**260052*0908*1 
05*8321 126812792 
06*56017266*27*1 
07*7 102726250695 
08*3  203126222.651 
09  *9  30 352579  26 1 0 
1C*790372537C57C 
1 1*730*325020533 
9 

HETFH 13*798 3 
08 1 *80036TTC 
0056901 1 
015*5003 
02*7902? 

9 


METE 31 3*7983 
08 1*30236967 
2057 1 1939978 
21050799297* 
220*0999797 C 
03100593*979 
0*5*0 198098 3 
05*90697698 5 
' 06*7  1 5975986 
07*822975935 
08*8  2897*98* 
9 


m 


tlETEC  1 3479 3 3 
03  14800  369  67 
C057 1 1989973 
0 1 0 50799  3974 
0205C899  5972 
03070699 1975 
040704938979 
05010293598  1 
06490598  1984 
0743  1 1979985 
03  4315970985 
9 


met;  i 

347  14 

98350 

080  36 

TTAA 

58  1 57 

P.B123 

99980 

10356 

3201  1 

00  19  1 

///// 

///// 

00239 

2SBC4 

70/// 

///// 

///// 

50557 

24765 

88999 

77999 

TTEB 

58  1 5/ 

P.E123 

00980 

10856 

1 1940 

1 2449 

22903 

02644 

00  239 

44784 

06361 

55742 

06362 

667  1 5 

09761 

77619 

14358 

22763 

99513 

23965 

1 1 500 

247  65J 

PP83 

58  150 

RBI  23 

90023 

32011 

02509 

06506 

90467 

06003 

270  1 1 

9089/ 

26015 

260  19 

9 1246 

27031 

27535 

27040; 

85528 

333  50 
88544 

25503 


92 


t 


;| 

l 


l!ZT?r  1 34793  3 
23  1 53C+343C27C9 

9 

KL~C;’!  34793  3 
GO  1 53S340969 
CC 58 3008 3 1 0409 69 
SIC  363  1 13C9  3C9  5B 
020  39010  306  509  32 
C3  1 08  0G7  3G  2.3CS9 1 
0443003429970842 
054740 1029730795 
0645101529400751 
0747202528830708 
C8 43 503223470667 
0943  30  3428  140623 

10  48  20  36277  10  59  1 
1 1 474S  39  27  300  556 
12473048267  10505 
1347 1C6426 100444 
1447908025340339 
1547009824500339 
1647208223760295 
9 


I 


METFtl  1 34793  3 
( 28  I 530040TPO 

00 538 e 03 
01589003 
02476026 
02475043 
04476072 
05471090 
9 

11ETE31  34793  3 
GO  15300409  56 
G0  5908077888 


r*E?E2i  34793  3 
C8  t 5300409  56 
005938377880 
Cl  0 4 1 1 37  6889 
3004  1307489  1 
330  6090  7 089  4 
340606371396 
350  30407  1397' 
065205375900 
C7 49 1 0 07 19  0 3 
0849  1 4G'7  190  5 
3948 18370939 
1048 £30689 1 5 
1 148  37067925 
9 


MET" 1 34715  98319  38040 

TTAA  58153  IB! 23  99969  34264  33008  00109  /////  /////  85563 

23058  20505  70243  12860  26526  50597  07366  26550  49768  17966 

27077  30975  34367  26584  25100  473//  83999  77321  26598  418//; 

TTEB  5815/  PE123  00969  34264  11850  53058  25838  55662  33724 

17063  44700  12860  55668  10459  66641  09066  77573  01261  88500 

07366  99458  10566  11300  34367  22250  473//; 

r-PBE  58150  PB 123  90023  33008  02011  B3012  90467  08007  25006 

56509  9089/  26013  55517  91246  27532  57034  27038  9505/  56551 

£7076  9 302/  £6594  5.6584; 


6.  PROGRAM  LISTING 


a.  System  Listing 

(1)  Master  Supervisory  File 

TRACK  0 l ILE  C 


<>:  r-  r t "OL-1',2  A pi  1 LL/T  Yf  T.T  ECF.C  LOGY " 

“1:  rrt  " 1 A 7 F 0 : 1 7 .JULY  7f  " ;spc  2 
5;  i r t "'JAPP  NO.  »'f.  000" 

3 : ri  i n.  A [ 1 1 ] 

A:  tck  n;icif  4 , A [ * ] 

S : f Xfi  G ;pr  t " CCU  NIT. F " , A [ 1 1 ] ; SPC  2 

TTi-Frl-  1 

7:  c(sp  "USE.  EdNCTrONAG  KEYS  10  ACTIVATE"  josb  "ppf’" 
£i : rtr 

' : «rr  "H.ir  SI:  0S»'  J'PF  f P POK  KEYS" ;osb  "POM" 

10:  a t r 


11:  f>rr  "Lri'c;  7 PY  n again"  josh  "fro-," 

12:  q t r -Q  


13: 
14: 
IS: 
lb: 
17: 
10: 
1 9 : 
20: 


i OO"  : tee;  ; wait  1 5C  ; beep  :v»ait  150;  beer  :va it  3000;  rrt 

TlilP  r-rOfUAE  PECO  IRES  THE  FOULOVTNC Tl  AFDV  A P 1:  ; 

HP  ’.  0 25 A CALCULATOR  WITH  24K  pv;M": 

lip  06  25A  CP  El-  A (TlS  G Si  STEM  f Of  6 7905”: 

C I t- LIE Al,  10/  r UITUDLD  IO  POM  9 P 2 1 3 A " : 
STPlNf-ADV  PROGRAMMING  POM  9«210A": 

EIT'l.X  1 f'AOLP/ PEP  t'Of  ATCR  FOR  PUNCH  H:  OUTPUT" 
1UTEH-ACL  CAELL.  98C32A  OPT  A G 3 " : 


21:  err 
* 7b2 


T 

i 


(2)  Functional  Keys 
TRACK  0 FILE  1 


f0=fl2: 

fl-£13: 

f 2=f 14 : 

f3-fl5: 

f4-fl6: 

£5-f 17 : 

f6=*fl8: 

f7=fl9: 

f8=f20: 

f9=f21: 

f 10=f 22 : 

fll=f23: 


*dsp  "PROCESSING  START  OF  FLIGHT";  trk0;  ldp  2 
*dsp  "PROCESSING  FLIGHT  CONTINUATION";  trk0;  ldp6 
*dsp  "PROCESSING  LAST  FLIGHT  MESSAGES";  trkl;  ldp  4 
*dsp  "PROCESSING  TACFIRE  TEST  LOOP";  trkl;  ldp  3 
*dsp  "PROCESSING  PRESSURE  CALIBRATION";  trkl;  ldp  2 
*dsp  "PROCESSING  PIBAL";  trkl;  ldp  1 
*dsp  "PROCESSING  FLIGHT  INFORMATION";  trkl;  ldp  9 
*dsp  "PROCESSING  MET  MESSAGES";  trkO;  ldp  12 
*gsb  "DELETE" 

/-2tn  tlO 
/-ltnriO 
/ 
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(1)  Date,  Survey,  Linearity,  Pressure 


TRACK  0 FILE  2 

0:  dim  A$  1 100]  ,L$  ( 16  ] , U$  [ 100]  ,R  1 15]  ,C$  [ 32] 

1 : o in  ir»$>(06J,u$[b95j,V$[96]fb[25] 

dim  P si  102]  .00116]  .OSI16J.LSI10]  »N$1 6]  ,G$  11921 


j:  13  SURVEY  of  " *C$  ( 1 , 1 3]  ;0$ *C$  I 1 4 , 29  ] ; "OK? "*C $ ( 30]  ;gsb  "Y/N' 

: if  A=-ltrTlG  :y  to  +4R  


asp  "PERFORM  SURVEY  CONTROL" ;gsb  BuB" 
U$[ 1 1 161 ♦o$  1 1 , 16  j 


♦ A;  * A$ ; 0 ♦ A $ ( 1 , l ] ; beep ; w a it  150;beep 
4 0:  ent  "ENTER  STATION  ELEVATION  (meters)  ",A$ 
41:  if  A 2 ; g t o -2 

42:  if  val(A$)<-200  or  va 1 ( A$) > 5000 ; gto  -3 


‘ : i i t - - i t r ' 1 1 ; r.  t c -i 


, J]  *S-  v|]l  ,11  J ,!>]♦!  | !/,  12| 


f rt  "(  li'l  KM  : 'IT  Y-7f>"  ; "OYC"*  I C ( 1 C f ,1C?] 

f rc  j ; " I y fO,  C V ( f-  M-(  '[  1 , 1 2 ) ; I,.'.'  [ ] , 1 r- 1 -f  5[  ^ ,2?  | ; f ?"-f  f | 3f  1 

rif  f /l." 

if  A - - 2 1 r " 1 1 ; r- 1 r 4 4 
"If-  r Cl,  f f"  -C?  f 1 ; f - i 1 ,<)  - 

oft 

if  A--ltT~lP;f,tr  4 4 1 

e rr  "H  r'KTf  n f'(  i i.  r i l INEAFI1Y  ref rp" ;orf  "i  ! I " 

1 ■'  t 1 . 1 ; I > f 1 1 i . ? ( i 

" " ♦ A f • " C " ♦ A f I 1 ,1  ] ; f * A ; 1 Pep  ; V.  r i t 1 c f! ; V P<?f 

rit  "ir'lir  1(1  Mi  in  rijMir-  (xy xyvy)"  ,/ 

M ! M <1  1 M (■•  :);  ;<  U .-jj 

" i ? mi  ri  ai,  i i i "*cs  1 1 , i r.  j • ^ [ i , r. } -*c c | .i r , 2 3 J ; 1 2r  | 

qrl 

if  / •=  — 2tr. ^iijgp-tr  -5 

f ye  iTJ  1 C G -*  1 ; r 1 r ( i ) -» ! C [l  , 4 j ; I . 

I 5 ( I , L 6 | -C  7 ( ] , 1 6 1 

( * I 

fee  = 1 e f tf  2c  i \ -2l.;£  tr  if 
i .5  | 1 , 1 o J -(  U J:  l + ]',I6Hlb|;re 
f c r f = 1 0 t r ('  I y -K;str(*)* 

I 5 1 1 , 161  -f M l U.l  + 1 ,161+  10]  ;r  f 
■~i  t c.  r ; 4 

" r " : 

if  V <1  CO;  " "-»•?  | 3,3]  ;if  K 1 0 ; " " - 1 ? [ 2 r 3 ) 

2*A  ; " "-*A  $;  " ( "-AP  1 1 f 1 | ;hepp;vrit  lr0;Vppr 

f y.r  t ; CT  r "ir-'lli  KL  f/PCII.ATr  AT  " ,E$  | 1 ,3  ) , "f  I'M  7"  ;r  r>t 
if  A. (l?;qtc  -2 

ri  crccccrcpcnc r "♦  i s | J , 7 e ) 

if  val  (AC)  >r5. 2;  "nr  isn't;  ricn"*rc[l,l*l  ;«tc  +17 

if  A f (2,21  s . ISN'T  r-ICHl  " ♦ f $ ( 1 ,16)  ; o t c 4]4 

if  ]rr  (Af)  >r  ;rtr  - 1 
rtr  ( V ) ■*  1 $1  1 ,4|  ; » «(2  ,4  | *F,$[  1 ,3| 
if  I < 10(.;[.C(1  , 2 | ■*  t 5 ( 2 , 3 ] ; " 5 [ ] ,1  ) 

if  vr)  (i  f|],3])--r;"fi',M'  f 2,3) 
rtr  ( ) / 2)  -*F  5 | 4 ,t ) 
if  1 = f f 0 " - 1 P | 4 ,fi  | 
if  C 5 " + I $ | 4 , ( 1 

f vc  J ; f tr  (va  1 (A  ?))■*!$[  7 ,13  | 
if  vr  1 ( A-  C ) r 1 f ; r f r ( VP  1 ( A.  $ ) ) 5 | 8 , 1 1 ) 

i f v At i (A  ; ) =0;  "t  . f "*t  $ [9,11 ] 
rtr  (ve  1 (L  $ | 5 ,I>)  ) *Vo)  (I  51  f ,1 1 ] ) ) +1  $ [ 12 ,16) 
if  vcl  (I  5 1 3 3,161 ) < 3 0 j 1 5 [13,1 5| *1  5(14 ,16] -*K$( 13,13) 
if  et  t (vcl  (F.$[  3 3,lf»)  ) ) >.  3;  "*H  + l i ( 12 ,12) 

1 + ] - I 

rr  t 

A?!  "Ar./T  r f -5  i ' CC. i cr.f  L.INIA 

r rt  "I- KOI  PI  * f /N:  " C , "CALII.  I’AT  irr  CN:  " , 1$  [ 1 ,16) 
r r t " A " , " 1 


100 

f r t *’  1 i 

0 E " , " Li 

L 

A 

c 

•i 

r 

Ii 

7 1 

1 

8 

" r r 

1 

i 

1 01 

? r t " 1 z 1 

L l-L’  lb  ".c$; 

LOC  1 

1 ■ 2 

O-l 

1 0 3 

let  I - 1 * c. 

1 0 

1 ‘ 4 

if  C M 12+  l 

(.1,12+111]="*"  rr 

< M 1(>  I , 1 » 

i I = 

" 'i 

t 

-'ll 

i ->■ 

1 r 0 

r o x t I 

1 ‘ f 

if  MM  001 

;rt  c 1 ; r.  tc  +0 

10  7 

r ff  "H  FAT!  1 FOOPf'E. P Fi  t.  '1 

6 V A f A I r. " ; 

i r 

f»  " 

108 

ret  ‘*6  07  t 

E 7 CM.  PA  f/CE.VALC  8 r 

IAT  iCAirC. 

i \ 

7' 

( 

* ) " ; 

rr< 

1 

1 50 

[ r t "01/7  C 

1 ’.Cl  1 RA  biC  E VAl.i  i L 

r- ai 

P 6 

1 17 

1 ! 

f 

( + ) 

Ol  ( 

- 

) " 

ICC 

f t c 1 ; r r t 

" E L CAT.  I 9 FATE  E CO" 

; spe 

1 ; q t C 

-44 

1 o.  1 

"IP  A ; /At  7 

-4  SONM  f]  Rf  uf 

, i.  ?" 

* C f ;o 

c-r 

/ 

ii 

1 6 2 

i f A » - 2 1 r " 

1 L ; o t C + 4 

1 3 

" 4"-p£ | 1 02 

; O r [ '*  Li  1 ' f 

7TTT“ 

t-tv; 

rrr 

TT 

TJTT 

7 — £ 

?'-r! 

fr  p Jl 

16  4 

r rt  "FALIO 

f-GNLll  771-1:  r E ’■ 

V AM/AI7-4 

»• . r 

' c 

2 

1 >■  5 

9 t c +3 

Itf 

" » " * I | 2 < ‘ 2 

, 1 02  | ; f'F[  "Of.  I N( 

t.V  S ‘ I 

ALrIC't 

•KL 

j 

jt. 

ii  i 

I 

' " • A 

t 

: : 1 

"ill  " 

R 7 

rrt  " i AC  16 

SONLL  7 YPL : Mr  ! J 

605  5i 

f.Ri  i r: 

" “ f 

1 ( 

/ 

1 (.8 

etc  + c 4 

1 1 0 

*'  L i " : f xd  1 

; 2 - A ; " " > A f ; " 0 " - /'  t 

TTTTT 

; ! < c 

; u c 

TT 

T 

'a;} 

c or 

i 

r 

TT 

TT7T7T 

1 70 

o r t " " , A 5 ; 

if  A § 1 1 , 1 ] = "0"  or 

ami 

,11=" 

i •• 

o r 

A- 

Ml, 

11  = 

" 

2 " ; ' 

tc 

( 7 

1 71 

if  A 5 ( 1 , 1 ] 

= " 3 " or  A $ ( 1 , 1 ] - " 

4"  cr 

•AS  1 1 

j) 

= " 

5" 

cr 

AS] 

1 

,11 

= " 6 

" ;otC' 

+ f 

172 

if  A § ( 1 , 1 1 

= "7"  or  A $ [ 1 , 1 ] = " 

f"  cr 

AC  1 1 

,ii 

_ ii 

9” 

or 

A $ l 1 

,21- 

II 

0 " ; a t c: 

+ 5 

173 

if  A,  $ [ 1 , 2 ) 

=" .1"  cr  AM 1 ,2]  = 

M 2 " 

or  AC 

u, 

2 J 

— Ii 

. 3" 

cr 

A 

Ml 

,21 

= **  ^ •»  • 

otc 

174 

if  AM 1,2] 

=".5"  or  A $ 1 1 , 2 ] = 

" .6" 

cr  A $ 

ii , 

21 

— II 

.7" 

c r 

A 

Ml 

,21 

-M  pH. 

ate 

175 

if  A v ( 1 ,2] 

=" . 9" ;atc  +2 

1 76 

n t c - 7 

177 

if  A £ 2 ; a t o 

-G 

178 

if  AT (3,3] 

= "*"  or  A $ [ 4 , 4 ] = " 

*"  cr 

A C ( 5 

,5! 

— Ii 

A '• 

mm 

A M 6 

,M  = 

” * 

" ; sf  9 

11 

179 

V 0 1 (AO)  ♦ l, ; 

r t r ( L ) * A $ ; A $( 2 ] ♦ A 

Mil; 

if  L<0  r 

r 

I > 1 ^ 9 

; etc 

-]( 

180 

II 

”-C$ 

fl. 

32] 

181 

ret 

•i  ,•  o 

1 (I  «: 

"V/N" : 2 -A; 

t eer ;o tf  Cf | 1 , 32 ] 

;e  r t 

" " , A 

! K 3 

if  A 4 - 2 1 r ” 

10  pro  A#-ltn*10; 

etc  - 

1 

184 

II 

" -c  C 

1 1 , 

3; 

1 

185 

rot 

T7T 

1 hi 


" I , F r I 'l  I " : r’rr 
-L±± 


''AnivAirr,  vrfi  i- 1 hsi  sjV  i .mi," ; - f-  " i ■ r- " 


18  8 : " PI  GSS  C 1-  ; i f F [2]  >=1  ; O-J  ; 4-  1;0*Y 

189:  ir  P{  2]  >5;  ; 1*Y 

1 9(  : if  E ( 2 ] >1  G ; 1*  J ; 14  ♦ 1 ; 2-Y 

1°»1:  if  1 ( 2 1 >10?  3-Y 

192:  if  h (2]  >20;  I ♦ J ; 24  - 1 ; 4»Y 

193:  if  1(2] >25; I*u ; 29-1 ; 5-Y 

104:  if  I 1 2]  >3l;;  1-j ; 49- I ; 6+Y 

100:  if  r«  1 2 ) >40?  I- J ; 49* 1 ; 7-Y 

156:  if  f f 2 J >5  0 ; 1 ♦ J ; 55  - 1 ; f -Y 

J.  9 7 : if  P ( 2 ] > 6 0 ; I » J ; 7 9 ♦ 1 ; 9*  V 

]>6:  if  f (2)  >80;  1-*J  ?95  *1 ; JG-Y 

199:  if  R|2] >l0t?I*J;119*I;ll*y 

* 18  346 


100 


(Mr  + 1 / 


"l 'TIP  HrrtUH  "'1  cot  '•  AC'I  i.<  "+(?•  I 1 ,?f.|  ; 
if  M 2 ; c t c - 1 

if  VcO  (/>?)<.]  cr  Vc]{AO>])f'P;nfc  -2 

if  ] r n f A f- ) = 5 ; A ? 1 1 , c.  ] -A  U , f ] ; " f, " - ^ $ H » 1 1 

if  ler  (/>$)  = 4;  r SI  1 ,41  W ? (},();  "PC"*/  0 [1  ,2 

if  lcr.  (A?)  = 3;  Af(  1 ,3}  -of  | 4 i ; " ( 0 3"-  r ? f 1 , 

i f 1 c r </•?•)  =2;  A$[l  ,2)  -Af-|  5 ,fj  ; "(,(00"-,  S [1 

f i [ 1 , b | ♦ V f ( J + 1 , 6 J + 6 J 
J x ] ■*  J 


fcr  1=0  to  14;if  va  1 IV  $ ( f.  I + 1 T + (-.]  ) <val  ( v f | 0 1 + 7 ,f>  I + 1 2 J ) 


n c-  * t J 

if  / it  - S ; o t r +4 

dSf.  "hr.FC  ( LCf  IT'S  I NC  PH.SSl'F-E  VALUE 
rrt  " H'F  Sf>U  [• !.  VA1LFS  SlJCfiLC.  UFOLAP. 


"T-Tl  " 

f coppf.ct 


PF<FS£  CF  FCK 


11550 


( 

j 

i 

1 

I 

< 

' 

i 

1 

: 

1 

i 

( 

1 


300: 

25*R [ 2] ;q?h 

"FFFSS 

ChFCK " 

301: 

4 G*R  f 2}  ;or t 

• PRESS 

CHECK" 

302: 

6P-»R[2);nFh 

11  p p i r p 

CHECK" 

303: 

100  *K [2] ;csb 

" FPFSS 

CHECK 

304  : 

120+R  [2]  ; oet 

"PRESS 

CHECK 

3C5: 

if  Lit-S;qtc 

46  7 

306:  dsp  "FILM  C A LIP 1 'Affi  Cti'  1 AP  F 


IS  NEE DED*1; gsF 


307  : rrt  "A  PRFESUF  E 1APL  IS  NEEDED  FOF  THIS 


TfT" 

I ADI OSONDE" 


308:  trk  0;rcf  S’  ,PC  ,C  $ ,0$  ,L$  ,N$  ,C$ , C$ 

309:  trk  ];ldp  2,0,1 

31'fl:  cvi"r  '>?[  TT  T J ,F?  n*>7  7ET  I lOOnH  TTPrSTm 

311:  ci iir  V. $ l 56  J , U$  l C95]  ,V $ [ 96]  ,E  [ 26] 

312:  diiv  t $ [ 102]  ,0$  1 1 6)  ,0$  1 16  ] ,L$  [ 16  ] ,N$  [ 6 ] ,C$  1 192]  ,D$  [ 16  ] 
313:  trk  0 ; 1 cl  f 9 ,P$  ,0$  ,0$  ,b$  ,N$  ,C$  ,E$ 

314:  trk  l;lcf  C ,V.  $ ,U$  ,V$  ,H[*] 


315:  otc  -t  4 4 

316:  dsp  "TURN-ON  PFl'FX  F LOAD  PFTSS  TAPl";gst  "FEE*1 
317:  "IS  1APF  EGAD  I'D  f.  IS  DOCF  CLOSED  ?”-C$  [ 1 , 32  ] ; opt  "Y/N" 

318:  if  A--2tn*10;atc  -1 
319:  if  net.  ior?;otr  -3 

320:  dsp  "FROCKSSINC  PPFSSUFF  TAPE.";gst  "PBP" 

321:  tire  500; wtc  2,1 

322  : r.ar  0;red  2 ,A  5 ; 3 en  (A  $)  +A 

323:  if  A < 3 C ; o t c -1 

324  : A$[A-29,A1  -T  $ [ 1 ,30] 

326:  if  ES  [1  ,5]  «"9S999"  end  E$  [ 1 ,3  J I"  499"  ;gtr,  -4 

326:  vel (B$| 8,101 } + val (E?(12,I 5} ) +vsl <P$ [ 1 7 ,20] ) -A; i f A>1 0000 • A-] 0000* A 

327:  if  A=val  (P  £ ( 27 ,30]  ) ; 0-*N+E;oto  +4 

320:  drp  "KF  V PprjSSLFF  TAPE  IS  PDOUIFLD" ;gpfc  "EPF" 

325  : rrt  "FFFSSl  PF  TAM  ISDEFLCTIVE " 

3 3P  : wtc  2,0;  ere  2 ; £*  t p 

331 : "PI  SN  ’ "-A$[  1 ,£<1  ;bS  [8,10] -A$19,11  1 ;”-"*AS[  121  ;F$[  12 ,1  6]  *A$[]3,16] 

332:  rrt  A?[I,16] 

333:  for  R =0  tr  17 

334:  par  2;red  2 ,A?  ; 1 en  (A$) +A 

335  : if  A < 7 1 ; g t o -1 

336:  A $ ( A-6F.  ,A  ] -*E  $ { 1 ,69]  ; A$  [A-5  ,A]  *L-$  [65,70] 

337:  fer  K=0  tr  9; val (D$ [ 1+7K ,7+ 7K ] ) 10*C ; i f C<10000C ; e t r ( p r r d (0 ,0) ) *h$ l 1 
338 : if  g<10000;str (rrnr(C ,0) ) -A$[2,6] }"G"*A?12,2] 

339:  if  Q<  1000 ; r-  tr  (rrrc*(U,0)  ) »A  $ [ 3 ,6  ] ; " 00"»  A $ [ 2 , 3 ] 

340:  if  g<100jstr(rtrd(C,0))-*A$[4,6];"000"*A$[2,4] 

341:  if  C<10;etr  (prrc'(0,0)  ) -A$[5,6]  ;"0000"-A$[2,5] 

342:  if  0<l;str (prrr (C,0) ) ♦A$[6,6] ;"00000M-A$(2,61 
34  3 : if  K = 0 art’  N=0;gtc  +4 
344  : A$  [ 2 ,6  ] -*U$  [ 1+5N  , 5+5N] 

34  5:  val  (U?  [ 1+5N  , 5+5N  ] ) /10tL*r  ; i f L>1  0000;  1.-10000*1. 

34  6:  N + 1 * N 
347:  next  K 
340:  next  R 

34 9 j par  2; red  2 , A 5 ; len (A?) *A 
*1083 


. . 


f 350:ifA<17;ote-l 

351:  y'SlA-ie.Al  -E$[]  ,1?1 
352:  val (b$ [ 12 ,17] ) ♦A 

333:  vLc  2 , 0 ; cl  r p "CONSfcPVf  fcNEPCY  'lORN-Ci-t  ri'L>";qft  "[.El" 
3r  4:  fyd  l;i£  A=L.;cjtr  +3 

3r'5 : clsr  "MV  PPLSEUPE.  'IAPI  IS  f LyUIPED"  ;ost  ” ! If  " 

35<>:  pr  t "MESSbPF  TAP)  1 SC  EF  LC'i  I V L ";s[  c 2;  rtf- 

357:  dtp  "PJFSSUFE  "APE  IS  COGD"  ;o?b  "FBF  " 

3 55:  at  "bbGAF A( k b lAli;" 

3‘r:  frr  , = 1 tc  eg.  "G,,-V?  1 1 j ; next  1 

3h(.‘:  va  1 (U$  [ 51-4 ,51  ) ) 9 0;c?rh  "VS" 

3A1:  fcr  1M  tc  3C  by  5 ; i f va  1 (UC | 5E-4  , 51  ] ) * d; c r t "vS" 

36  2:  next  1 

34-3:  fcr  1=40  tc  6C  by  10:  if  v?l  (U  $ [ 51  -4  , 5 I ) ) # f ; or t "V$" 

304:  next  1 

365:  for  I=SC  tc.  140  ty  20;  if  val  (US-  ( 51-4  ,5T  ] ) t0;nsb  "V5" 

3t6:  next  I 

30  7:  fcr  1 = 170  tr  0 by  -1  • j f val  (li$  f 51 -4  , 51  ])=(';  next  1 
3f0:  I * E (14]  ■*  r [ 9 ] ; g r b "VC" 

305:  ntc  43 


Fascl  i re  , Launcri 


riiir  K 1 2 3 , 2 ] , E 1 1 4 ,15]  , X [ 2 ) 
cf  in  A 111] 

+ r k 0 ; 1 c»  f 4 , A ( * 1 

^PFfsT'cOFP"  :if  F ( 2 ) >= 0 ; 0+ J ; 4- I ?C-' 
if  M2]>5;iJ*J;9-*I;l+Y 
if  R 1 2 1 >10  ;■  1*  J ; 14  -» 1 ; 2*\ 
i f R [ 2 ] > 1 5 ;•  3 * J ; 1 9 ♦ I ; 3 +Y 
if  R|2  ] >20  ;>J- J ;24 -I  ;4*Y 
if  K[2  ] >25  ;•]- J;2S+J;5-»Y 
if  M2]  >30  ;>  1 -*  J ; 3 9 •*  I ; 6 * Y 
if  P |2  ] >40  ;']♦.!  ; 4 t, ..  I ;7-Y 
if  R{2]>50  ;'1  + J ; 59  ■*  I # 8*Y 
if  P[21>60;«W;79*I;9-*Y 
if  P (2  j >80  fl-*  J ; 99-*  I ; 10+Y 
if  P|2]>100;'I*J;1]9-»I;11*Y 
if  Pf2?>12C;-I-J;139-*I;12*Y 
if  F[2]>140;']-J  ;F.  ( 14  ] -1-P  [9  ] ♦ I ; 1 3-Y 

val  (US  I5J+1 , 5J  + 51)  + Pf4];va3  (U$  (51+1,51+5)  )+F[3];irt-(P[2))-*A 
frc(P(21)*J;jf  A = P ; 1 ♦ A 

(val (U$ [5  A- 4 ,5A] )-val  (US [5A+l,5A+5] ) ) (-J)+val  (U$ I5A-4  ^A] ) -f [ 5] 
val  (V$ 1 6 Y+  1 ,6Y  + 6 ] ) ♦R  ( 6]  ; val  (V$  [ 6Y  + 7 ,6 Y + l 2 ] ) -P  f 7 1 
r | A ] - ( P f 6 ] - P [ 7 1 ) (K(4]-P[51  )/(P|4]-P(3] ) *Ff8] 


"HUP  COPP" : (Z+56) /8-B  f 1] ; int (Pll ] ) -Pf21  ;frc  (F  II] ) -P [31 
D/4  + l-R[4 ] ; int (Pf4 ] ) *P  f 5]  ;frc  (R [4 ] ) -P(6] 

K|P.|5]  ,2J+(K  IF  [5]+l  ,21-K[P|5]  ,2]  )P  (6]  -P  ] 7] 

P ( 7 1 -R  { 25 ] -»F  (8 ] 

fcr  N=2  tc  13;  if  R[ 8] <E [N , R f 2 ] ) ; rrxt  N 
r | N - 3 , R [ 2 ] ] + (E  (N-l  r R f 2 ] +1  ] -E  fN-1  f I'  [ 2 ) ] ) R f 3 ] ♦F  [ 9 ] 
E.IN,P(2)  ] + (E[N,I  [2]  +1]-E[N,R[2]  ] ))<|3]*Pfl0] 

( P ] 8 ] -P  1 9}  ) / ( R 1 10]  —Ft  I 9 ) ) -*P  [ 1 1 ] 

8 * ( N- 1 ) +8*P[11] »F [12] 
if  F.  [ 1 2 ] >100  ;100-P[12] 
if  F f 1 2 ] < 5 ; 5 -F.  [ 1 2 I 


beep;waif  150;hee 


iiuniTti 


pnt  , A$  ; i f A$[1,1J="P"  or  A$fl,U=',T"  or  A 

if  A $ 11,1  ] = " 3 " cr  A$[l,ll="4"  cr  A$  11 ,1  W5" 
if  AS  11,1 1 * " 7"  or  AS [ 1 , 3 1 * "8 " or  A$[1,1J*"9" 
if  AS  |1 ,2]*".  1"  or  ASfl  ,21  = ".2"  or  AS  1 1 ,?]  = *' 
if  AS  [1,2]*".  5"  or  ASfl, 21*". 6"  cr  A$|l,2]  = " 
if  AS |1 ,21*". 9"  or  AS [1 ,1 ] ;ato  +2 


wait  1 50 ;beer ;wa if  200P;ret 


AS 1 1 ,1 ] jreer  ;wa  1 1 1 50  ;lr  eoc  ;H?r  C$11,321 
or  A $ f 1 , 1 ] - " 1 " or  A$fl,l  ]="2";ofc  +7 
= " 4 " cr  AS  11,1  W"5"  cr  AS  f 1 ,1  ] =''6"  ;o(t  +6 
*"8"  or  AS  1 1 , ] ] =”'9  " or  AS  1 1 , 2 ] = " . 0"  ;ofe  + => 

1 = " . 2 " or  AS [1,2] =".3"  cr  A$ 1 1 , 2 1 *" . 4 " ;ofo  +4 
] * " . 6 " cr  AS  1 1 ,2]  *".7"  or  A$ [ 3 ,21* " .8"  ;ato  +3 


if  AS |1 ,21*". 9"  or  AS [ 1 , 1 ] ;a to  +2 
qto  -7 

if  A#  2 ;oto  -8 

if  A$ 13,31*"*"  or  A $ I 4 , 4 1 = " * " or  A$[5,5)*"*"  cr  AS 1 6 ,6 1 *" *" ;g  fo  11 
val  (A$)  ♦L;6tr  (I.)-A$jAS  I2I-AS  (3  ) ;i'f  L'-OO  cr  r.>1100;qfc  -10 
" " *C  $ 1 1 , 3 2 ] 

ret 
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50:  "Y/N"  :2-A;beep;dr,p  C$(l,32)  ;ent  "M,A 

51:  if  A#-2tn* 10  and  A#- It n' 10 ;q to  -1 

52:  " "-C$[ 1,321 

53:  ret 

54:  "DELFTE"  :<5sp  "ACTIVATED  WITH  FIRST  SIC  LEVEE"  ;qsb  MPBB" 

55:  ret 

56:  "COPPECTINC  PD" : for  N=0  to  10;  if  B (4) <val (C$ [ 5+N16  ,6  + 16N) ) ;next  N 
57:  val (G$ ( 5+1 6 ( N- 1) ,6+16(N-l) ] )-B[6) 

58:  val (C$15+16N,6+16N] )*B[7] 

59:  val  (G$  ( 12  + 16  (N- 1)  ,16  + 16  (N-l)  ) ) -B ( 8 } 

60:  val (G$ 112+ 16N , 16+ 16N ] ) -B  1 9 ] 

61:  ( (B|4)-b(7)  )/(B[6]-B(7]))  (B[8]-R19)  )+B[8]*BllO] 

62:  ret  

63:  " TEMP  COMP  Wx  BUR" : exp (16 . 008 299 1- . 99 66 256 In ( 2B [ 2 ] ) ) -48000-B [ 1] 

64:  .00046771n(X[l) *B[11 /14000) +. 00001 1131n ( X [ 1 ] *B [ 1 ] /14000) *2-A 
65:  l/(.  0033003+A)-A 
66:  A-273.16-B [51 

67:  rot  

68:  "TFN!P  COMP":  ((106. 85/B (2) -1. 125) tn*5)‘ . 19-B (6 ) 

69:  B [ 12 1 /B [6 ] - 170-B [ 51 

70:  ret 

'll:  if  P$ [102, 102) ="B" ;qto  +91 

72 : for  N=1  to  23 ; 4N-4-K [N ,1 ] ; nex t N 

73:  -735*K(1,2) ;0-K[2,2) ; 384 -K [ 3 ,2 ) ; 625-K [ 4 , 2 ) ; 8 00-K [ 5 ,2 } ; 94 5-K [ 6 ,2 1 
74:  1070-K [7,21 ; 1 184 *K ( 8 ,2 ) ; 1289-K [ 9 ,2 ) ; 1 384-K [ 10 , 2 ] ; 14 79 -K (11 ,2 ] 

75:  1 568-K  [12,2]  ; 1 64  5-K  [ 1 3 ,2  J ; 1 74  1 -K  [ 14 , 2 ) ; 18 30-K  [ 15 , 2 ] j 1 91 9 -K  [ 1 6 , 2 J 
76:  2016-rK  [17,2) ; 21 19-K{ 18,2) ; 22 32 -K[ 19,21 ;2359-K[ 20,21 ;2509*K( 21, 21 

77:  2692-K [22,21 ;2952-K[23. 21 

78 : for  K=1  to  1 3 ; 8N-E  [N  , 1 j ; nex  t N 

79:  1-N; 2745-E [N,2) ; 2737 -E[N, 3) ;2727*E[N,4) ; 2 7 26 *E  [N  ,5  1 ; 2 724  *E  IN  , 6 1 
80:  2-N;  2675-E[N,2)  ;2667-E[N,3)  ;2665-E(N,4)  ;2658-E[N,5)  ;2652-F.[N,6) 

81:  3-N; 2601 -E [N, 2) ; 2604 -E[N,31 ;2600-E[N,4) ; 2599-F [N , 5 1 ; 2 596 *E [N , 6 1 
82:  4-N; 2510-El N,2) ;2499-E[N,3) ;2512-E[N,4) ;2509*E[N,5) ;2508-ElN,6) 

83:  5*N;2360*E[N,21 ?2374*E1N,31 :2382*E[N,41 j2390*E|N,51 ;2395-E[N,61 
84:  6-N; 2134-E |N ,2 ] ; 2158 -E IN ,3 ) ; 2188-E [N ,4 ) j 2204 *E [N ,5 1 ; 2222-E [H ,6 ] 

85:  7-N; 1861-E[N,2)  ; 1904 -E IN,  3] j 1949-E  [N , 4 1 ;1983-E[N,5] ;2021-E[N,6J 
86 : 8-N;  150  5-E[N,2 1 ; 1562-E[N,3) ; 16  31*E[N,4 1 ;17C0-E [N  ,51  ?1757-E[N ,6] 

87:  9-N; 1010-E[N,2J ; 1090-E(N ,3) ; 1205-E [N,4 J ; 13 20-E [N  ,5 ] j 1 42 1-E [N ,6 ) 

88:  10*N;422*E[N,21 ;495-E[N,31 ;637-E(N,4J  j824-E[Nf51 ; 998-ElN,6) 

89:  11*N;91*E[N,2J ;115*E[N,3) ;179 *E [N ,4 J ; 307-E [N ,5 ) ;498-E[N,6) 

90:  12* N; -10-E [N,2J ; 10-E [N , 3 ) ; 28-E [N ,4 ] ;88-E[N,5) ;190*E[N,6) 

91:  13-N;-28*E(N,2) ;-28-E[N,31 ;-28-E[N,41 ;-16*E[N,51 ;-6*E[N,61 
92:  14*N;-40-E [N,21 ;-32*E[N,31 ;-24*E[N,4) ; -16-E [N ,5) ; -8-E [N ,6 j 
93:  14-N;0*E(N,7) ;8-E(N,8] f16*E{N,9) ;24-E[N,10] ;32*E[N,11] 

94 : 13-N; 31-E(N,7] ; 51-E(N,81 ;81-E[N,9 J ;117*E [N,101 ; 156-F[N ,11) 

95:  12-N; 299-F [N  ,7)  ; 389-E  [N  ,8 ] ; 46 1-E [N , 9J  ;5  21*E[N,10] ; 582*E[N,11] 

96:  11-N;673*E(N,7) ;788-E(N,8] ;875*E[N,9) ? 942 -E [ N , 10 ) ; 1 004 -E [N , 1 1 ) 

97:  10*N;1117*E[N,71  ; 1 198-B f N ,8 1 ; 1266 -F.  [N ,9  ] > 1322-E (N ,101  ? 1378*E[Nflll 
98:  9 *N;  1 4 99-F  (N  , 7 ] ; 1558 -E [N  ,8 1 ; 16 08-E [ N , 9 ) ; 1 6 50 -F [N ,1 0 ] j 16 89-E [N , 1 1 ) 
99:  8-N;  1804-F.  [N  ,7  1 ; 186  8 -E  ( N ,8  ) ; 188  3-E  [ N , 9 ) ;1920-F  [N,101  j 1954-E  [N,ll  1 
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100:  7*N;2052*E[N,7]  ;2079-E[N,8)  ; 2 1 0 7-E  [ N , 9 ] ; 2130*E ]N ,101  } 2 154 -E [N , 1 1 ] 
101:  6*N;2248»E]N,7]  ; 226 1*L IN  ,8 ] ; 2270-E (N,9 ] ; 2 288-F.  I N , 1 0 1 , 2295*E (N , 11 ] 
102:  5*N;2401-E(N,7] ;2408*E]N,8] ; 24 U*E(N,9] ;2418~E[N,10] ;2422-E[N,ll] 
10  3:  4-»N;2510*E(N,7J  ;2506-ElN,8]  j2506-E]N,9]  ;2506*F.  [N,10]  ; 2 506*E(N,11) 
104:  3*N;2  595-E(N,7] ; 2 591 *E [N , 8 ] j 2588-E [ N,9 ) ; 2585-E [ N , 10 ] ; 2 58 0-E (N , 11 ] 
10  5:  2*N;2651*E(N,7]  ;26  48-*E(N,8]  ;2641-»E[N,9]  ;2638»E{N,10]  ;2630*E(N,11) 
106:  1*N;2719*E(N,7] ; 27 12-E [N ,8 ] j 2708-E [ N , 9 ] ; 2 704 *E [ N , 10 1 ; 26 92 *E [N r 1 1 1 
107:  2685*E [1,12] ; 26 25-E ( 2 , 1 2 1 ; 2 56 9*E ( 3 , 12 1 ; 2506 *E [ 4 , 1 2 1 ; 2429 *E [ 5 , 1 2 ] 
108:  2306-E[6 ,12]  ; 2 1 78 *E ( 7 ,1 2 ] ; 1 98 5-E 1 8 , 1 2 ] ; 1 725 *E [9 , 1 2 ) ; 14  28 *E ( 10 , 12 ) 
109  : 1060-F (11, 12 ] ; 669*E( 12,12 1 ; 255-E] 13, 12]  ;4  0-Ffl4  ,12] 

110:  for  N*1  to  13}E[N,12]*E[N,13]*E[N,14]»E|N,151 ;next  N 
111 : 48-E (14 ,13] ;56-E[14 ,14] ; 64*E[14 ,15] 

112:  qto  -*-35  

1V3:  itBASVALh  :dr.p  "PERFORM  BASELINE  CAL.  ID  RATION"  ; q sh  " BBB" 

114:  "ENTEP  PASEL1NE  DPY  3ULB  TEMP  " -C$ [ 1 , 32 1 ;q sb  "DI" 

115:  L+T; if  L<-90  or  L>60;qto  -1 

116:  " ENTER  BASELINE  WET  BULB  TFMP  "*C$ ( 1 , 32 ] ;asb  "DI" 

117:  L-*D;if  L<-90  or  L>60;ato  -1 

118:  6.11*10' (7. 5T/(237. 3+T) ) *V 

119:  tn“  ( (8.286D+  186 . 52 7 ) / ( 2 37.  3+D) ) *P 

120:  P-.00066B [15]abs (T-D ) (1+ . 0011 5D ) -P 

121:  1U0P/V-*H;  if  H<0;0-H 

122:  if  H>100;100*H 

123:  "ENTER  BASELINE  REFERENCE  R.D.  "♦C$ ( 1 , 32 ] ;qsb  "DI" 

124:  L* R [ 15] ; if  L>94  and  L<96;qto  +3 

125:  dsp  "Adjust  the  REFERENCE  ADJUST" jg sb  " BBP " 

126 : gto  -3 

127:  "ENTER  BASELINE  TEMP  RECORDER  D IV" ♦C$ (1,32] ;qsb  "DI" 

128:  L*R(4]fif  L<2  or  L>90;qto  -1 

129:  "ENTER  BASELINE  HUM  RECORDER  DIV  " *C$ [ 1 , 32 ] ;q sb  "DI" 

130:  L-*R  [5]  ; if  L<2  or  L>90;gtO  -1 

131:  prt  "CALIBRATION  DATAFOP  BASELINE:" 

132:  prt  “ DRY  TEMP " ,T , " WFT  TE MP " , D , " RFF  RD",R115] 

133:  prt  " TEMP  RD",R[4] 

134:  prt  " HUM  RD"  ,R  [ 5]  ; spc  2 

135:  "ARE  PRINTED  BASELINE  VALUES  OK?  " *C$ [ l , 32 ] ;qsb  "Y/N" 

136:  if  A«-2tn'10;prt  " REPEAT  BASELINE " ;otO  -23 

137:  (95/R[15])B!4]-B(4] ;gsb  "CORRECTING  PD" 

138:  P[41+B[10]-R[4] 

139:  (95/P { 1 5 | ) F[5] ♦B[4] ;qsb  "CORRECTING  PD" 

140:  R ( 5 ] +B [ 1 0 1 ♦ P [ 7 ] 

141:  prt  "VALUES  COPFECTEDFOP  DRIFT  AND  LINEARITY  ARE:" 

142:  pr t " DRY  TEMP" ,T 
143:  pr t " HUMIDITY" ,H 
144 : prt  " TEMP  PD"  ,R[4] 

145:  prt  " HUM  RD" ,R(7] 

146:  ret 

147:  qsb  HBASVAL"  


I 


150:  66 . 5*B [ 2 ] ;q  sb  "TEMP  CO  VP  " 

151:  B l 5] *B 1 3 ) 

152:  68.9*B[2] ;qsb  "TF.VP  COMP" 

153:  B [ 5] * B [ 4 ] 

154:  if  8 [ 3 ] <20  or  B ( 4 ] >30  or  H<20  or  H>7G;qto  +3 
155:  prt  "USE  THEM  TO  LOCK-IN  CP-22  3"  ;spc  1 

156:  dsp  "BASELINE  CALIBRATION  IS  G0GD";qtO  +6 

157:  if  B (3 1 <20  or  B(4]>30;ort  "NO  TEMP  LOCK-IN  IF  APMY  AN/AMT-4" ;qtO  +3 
158:  if  IK20 ; pr  t "h’UM  UNDER  20%J" 

159:  if  U>  70 ; pr  t "HUM  ABOVE  7l)%l" 

' 160:  dsp  "REPEATING  BASELINE  CALIBRATION" ;qsb  " BBB " 

161:  prt  " REPEAT  BASELINE ";qto  -14 

162:  if  P$  [ 102 , 102]  ="  4 " ;q  to  -<-62 
.163:  for  N=l  to  5!};4N-4*K[N,l];next  N ~~ 

164 : -28700-K [1 ,2) ;-22700*K| 2 ,2] ;-17700*K[ 3,2]  ;-13700-K  [4 ,2] 

165:  -10962*K[ 5,2] ;-9017-K [6,2] 

166:  -7522-F |7,2] ; -6 180 -K [ R ,2 ] ; -496 7-K [ 9 , 2 ] ; -3846 -K [ 10 ,2 ] ;-2770*K[ll ,2] 

167:  -1736-K 112,2] ;-748-K[13 ,2)  ; 24  5-K [14 ,2] ; 1264 *K [ 15 ,2 ] ; 229R-K[ 16 ,2] 

168:  3394-K [17,2] ;4567*K [18 ,2) ;5831*K [19,2] ;72  34*K(20,2] ;R852*K[  21 ,21 

165;  1 09 77 -K [22,21 ;13000*K[ 23,2] 

170:  for  N=ltol  3;3n-»E  [N  ,1]  ; next  N 

171:  1*N;1R659*F [N,2]  ; 1 8 57 7 *F [ N , 3 1 ; 1R490-E  [N  ,4 ] ; 18 395-E [N , 5]  ; 18293-E (N ,6 1 
172:  2*N;17038*E[N,21 ; 16 96 8*F |N , 3] ; 1688 5*E [N ,4 ] ; 16796 -E [N , 51 ; 16704 *F [N ,6 ] 

173:  3-N; 1 R740*E(N ,2] ;I 56  74*E[N ,3] ;15627*F [ N , 4 ] ; 15601 *F (N ,5] ;1 5567-E[N,6 ] 1 

174:  4-N;14  70  7-F(N,2)  ; 1 4 722-E [N , 3 ] ;14  731*F  [N,4 ] ; 14 737*E (N , 5] ; 14 732-E [N ,6 ] 

175:  5*N;13086*F.  [N  ,2]  ; 1 3155-F  [N , 3 ] ;1  3 242-F.  [N,4  ] j 1 3335-E  [N  , 5]  ; 13427*E[N,6  ] 

176 : 6-N;10887-E [N ,2 ] ;11092*E [N,3] ;11308-E [N,4 ] } 11532-E [N, 5] ; 11778*L[N,6 ] 

177:  7*Nj8007*E[N,21 ;8337+E[N ,3] ;8689+E[N,4 ] ;9034*E(N,5] ; 9352-F[N,6] 

178:  8-N;4793*E[N,2] ;5298-E[N,3] ;5805»E[N,4] ; 6 28 5-E [ N , 5 ] ;6750*E[N,6]  ) 

179:  9-N;717*E [N,2] ;1291*E[N,3] ;1919*E[N,4] ; 2560--E  [N  ,5] ;3177*E[N,6] 

18  0:  10-N;-4150*E[N,2] ; - 36 02 +E [N , 3 ] ; -29  73-E [N ,4 ] ; -22 79 *F[N , 5] ; -1562 *E [N, 6 ] 

181 : U»N;-8  708*t[N,2] ; -8077 *E [N , 3 ] ; -74 0 7-E [N , 4] ; -66 93*F [ N , 5] ; -5940-E [ N , 6 ) 

182:  12+N;-13082*E[N,2] ; -12620-E [N , 3 ] ; -12161*E [N ,4 ] ; - 11703*E [N , 5] 

183:  -11234-r [N,6] 

184:  13*N;-17480-F[N,2] ; -171 34 *E IN , 3 ] ; -1681 5-E [N ,4 ) ; -16499+E [ N , 5 ] 

185:  -16210-F [N,6] 

186:  14-N;-40*E[N,2] ; -32 *F [ N , 3 ) ;-24*E[N,4] ;-16*E[N,5] ;-8*F[N,6] 

18  7:  14-N;0*E[N,7]  ;8*F,  [ N , 8 ] ;16*E[N,9]  ;24*F  [N  , 10  ] ; 32*E [N ,11] 

188:  13-N;-16077*F[N,7)  ; - 160  37*E  [N  , 8 ] ; - 1601 6 -F.  [ N , 9]  ;-  16000  *E  [ N , 1 0 ] 

189:  -16030*F [ N , 1 1 ] 

190:  12-N;-1077  3-E[N ,7]  ; - 10  28  1»F [ N , 8 ] ; -977  0-E [N ,9 ] ; -92 58 -E [ N , 1 0 1 ; -8  778-F [N , 11 1 
191:  11*N;-5157*F[N,71  ; -4  38  7*F  [N  ,8  ] ; -368  7-E  [ N ,9  ] ; - 30  73  *E  [N  , 10  ] ; -2  54  7 *F.  (N  , 11  ] 

192:  10*N;-907*E[N ,7] ; -290-F [N ,8 ] ; 299*E [N ,9 ] ; 8 37*E [N ,10] ; 1 26 7-F [N , 1 1 ] 

• 193:  9-N; 3768*F[N,7] ; 4294 -F [N ,8 ] ; 4 7 57 *E [ N , 9 ] ; 51 59*F [ N , 1 0 1 ; 5501 *E [N, 1 1 ] 

194:  8-N;7211*r[N,7)  ;7619*E[N,8]  ;79P5*F,  [N,91  ; 8 31  3-F  f N , 1 0 1 ; 86  04  *E  f N , 1 1 ] 

195:  7*N;9689*E[N,7] ;9999*E[N,8] ; 1 0292 *F (N ,9 ] ; 1 0555-E [ N , 1 0 1 ; 10 76 7*F [ N , 1 1 ] 

• 196:  6*N;11967*E[N,7] ; 1 2153-F [N ,8 ] ; 12 327*F [N ,9 ] ; 12481 *E [N ,10] j 126 18*P (N , 1 1 ] 

197:  5-N;1349R-F [N , 7 ] ; l 35 55»F [N , 8 ] ; 1 3616-E [N ,9 ] ; 1 3 68 0-F { N , 1 0 | ; 1 372 1 *F [N , 11 ] 

198:  4-*N;14  70l*F[N,7!  ;146  94*E  [N,8]  ; 1468 2*E [N ,9 ] ; 146  6 2*F  [N  , 1 0 ] ; 14648*E  [N,  11] 

199:  3*N;  1 5524-E  [N,7]  ; 154  75-E  [N,8]  ; 1 5424  *!’  [ N , 9 ] ;1  537  3 -E  [N  ,10]  ; 15322-E  [N,ll  ] 
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2 50:  " FNTF  P SFC  WINF  SPFED"*C$  ;osb  "DI" 

251:  L* A { 4 ] ; i f L<0  or  I >t>9;oto  -1 

252:  prt  " ’/IMP  SPr ED" ,A ( 4 ] ; spc  2 

253  : *'  AFP  PPINTFD  SFC  WIND  VALUES  OK  ?M  *C$  [ 1 , 32  ] ;H  sb  "Y/N" 

254:  if  A,=-2tn~10;prt  " REPEATING- — -";gto  -13 

255:  "FtJTFR  SUFFACE  PRESS  AT  LAUNCH"*C$;asb  "DI" 


256  : L*A[5]*C;if  L<650  or  L>1100;c]tO  -1 

257:  "ENTER  SFC  CONTACT  AT  LAUNCH "*  C$;q  sb  ''DI" 

258  : L*  B (2  ] ; i f L>100;qto  -1 

2 59  : "IS  IAUNCH  SFC  PRESS  OK  ?" *C$  [ 1 , 2 5 ] ; f xd  1;  Str  ( A ( 5)  ) *C$  [ 26  1 ;a  sb  "Y/N" 
260:  if  A=-2tn'10;qto  -5 
261:  prt  "SFC  I' FT  VALUES:" 

26  2:  prt  " PPF.SSUPF  " , A [ 5 ] 

26  3 : str  (prnd (A [5]  ,0))*A$;A$(2,4]*P$[22,24] 

264:  if  A(5] >=1000;A$[ 3,5]*P$( 22,24] 

265:  "IS  SFC  CONTACT  CORPFCT  ?"*C$ ( 1 ,24 ] ; str (prnd (B (2] ,-1) ) *C$ ( 28] ;qsb  "Y/N" 
266  : if  A=-2tr“ 10;oto  -9 

267:  prt  " CONTACT" ,B ( 21 

268:  B (2) -2. ]-P f 2) ;qsb  " PRESS  COMP" 


269:  P [ 24 ] ♦ I 

270:  if  P[8] >=va  1 (V$f6I+l,6I+6] ) or  P [ 81 < = val  (V$ [ 61 + 7 ,61  + 1 2 ] ) ;a t o +2 
271:  P[8]r ( 2 3 1 -R  f « 1 
272:  P [ R ) ♦ B [ 3 ] 


273:  P 1 2 ] +2 . 1 -P  [ 2 1 ;osb  "PPF.SS  COMP" 

274  : P(24]*r 

275:  if  P[8] >=val (V$[6l+l,6I+6] ) or  P (8] <=val  (V$ (61  + 7 ,61+ 121 ) ;nto  +2 
276:  P(R]F (23] -P (81 
277:  P ( 8 ] * P f 4 ] 

278:  if  A f 5 ] <R  f 3 ] and  A ( 5 ] >R [ 4 ] ; n t o +8  " “ “ 

279:  r rt  "SFC  PRESSURE  AT  TIME  OF  LAUNCH  DIDN'T  CORPE LATEWI TH  PPESSUPF  AT" 
280:  prt  "BASELINE; " THEREFORE "TH IS  FLIGHT  IS  TERMINATED  BUT" 

281:  prt  "IF  EITHER  A CONTACT  OR  PPESSERROR  IS  FOUND" 

282:  prt  "THE  FLIGHT  MIGHTBE  SALVAGED  BY  RE-ENTERING  ALL  DATA  FOR  THIS" 

28  3:  prt  "FLIGHT" 

284:  dsp  "PREPARE  FOR  NEXT  FLIGHT" ;qsb  "BBB" 

28  5;  trk  0;ldp  2 

286  : Str  (C/B  [2  3|  )*A$(1,7];A$[2  ,7] *W$  [ 1 ,6] 

287:  for  1=1  to  12 


288:  if  val  (W$(l,6] ) <val (V$ ( 61  + 1,61+6] ) jnext  I 

28  9:  val  (V,$(  1,6]  )*R(  8]  ; 1-1*1  ;val(V$  [6 1 + 1,61+6)  )*R  (6] 

290:  val (V$(6I+7, 61+12] ) *R(7] 

291:  if  I=0;4*I; 0*J;qtO  +11 
292:  if  1=1 ;9*I; 4*J ;ato  +10 
*293:  if  1=2;  14*1;  9*J  ;qtc  +9 
294:  if  1=3; 19*1; 14*J 
295:  if  I =4 ; 24* I ; 1 9* J 
296:  if  1=5; 29*1; 24*J 
297:  if  1=6; 39*1 ;29*J 
298:  if  1 = 7 ; 4 9* I ; 39*J 
299:  if  1 = 8;  59*T  ; 49*,7 
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It  I -1  . 7S  *J 

v, 1 (1.5  I OJ+1  ,0j  + S]  ) -!•  I 4]  ;v? . MU?  ! b IH  ,5  ! + I ) [ 5 I 

1 I 4 ) - ( I • [ f'  | -5  [ i.  1 ) ( >’  l 4 | -f  1 J ) ) / ( I'  [ f>  ) -I-  [7)  ) ♦<  1‘  ] 

Ur  K“l>  t<  07;  if  F: ( r-  ] <vt  1 ( ■ c f ' t'  + 1 , 0 !■*  r | ) ; re  y t 

(va)  (I  ^ -<•<  ,5K]  )-!  | c 1 ) / ( va  1 (I  | hv-t  : | ;-v:  1 (*-'.(  r'  + 1 , *■•;•  + = | ) ) +v+k 

: -r  m [1H  


('•">/!  ) I Ml-’  (4  | j'irs  Lf  >'  7' ri  • i l 

I lul+f  M J *!  t 3)  ; i f r j 3 J > ) ■;  5 t • »;  | 3] 

" l”  ]-<■;'  [31  " ML”  CO  !•'" 

U12]*M«1 

.11*  in"  (7.  K-]  / ( 7 37.  3 + A [ f ] ) ) * (Mf*l  /100)  [1 

ir.  (H  l *773.1  c.)  ( 1 + . 3 7^9  17*  (Ml  )/t  i r)  I ) ) -M1' ! 


c.  Flight 


TRACK  0 FILE  6 

0:  dim  A$[20| ,E$[36]  ,R$(4]  ,P[12]  ,C$f32] 

1 : dim  A ( 11  1 

2:  dim  V.S  [ 56  ] , U $ | 8 951  ,V  $ [ 96 ) ,P  I 25) 

3:  dim  K ( 2 3 , 2 1 ,F(14 ,15]  ,X[2| 

4 : dim  1 (-1:60,1:6)  ,Y[2| 

5:  dim  H ( — 2:4  5,1:6] 

6:  dim  V$  1 10  2 ) ,Q$  1 16]  ,0  $ 1 I 6)  ,I,$  1 IF]  ,w$  t 6 ] ,0$  | 192  ] ,D$  (1  6] 

T:  trk  0 ; 1 d f 4 , A f * ] 

8:  trk  0;ldf  7 ,W$  , u$  ,V$  ,B  [ *] 

• 0:  trk  0 ; 1 d f R,K[*]  ,r[*]  ,X[*| 

10:  X[l]-B[121 ;X[2]-R[251 

11:  trk  0 ; 1 d f 9 , PS  ,0  S ,0  $ ,1,  $ ,NS  ,G$  , D$ 

12:  if  P$[100,100]="N";cfo  12 

13:  if  P$  (100, 1001  ="Y"  ;Sfq  12 

14 : s fa  9 ; i f A (10] =1 jnto  +4 
15:  trk  0;ldf  10,  F[*l  ,v[*] 

18:  trk  0;ldf  11,H|*| 

1 7 ; a t o + 1 4 

lfl  : 6-AllOI  ;M111  + 1-A[L11  : trk  0 ; ref  4,M*1 
19:  . 001 ♦H [ 1 5 , 3 ] 

20:  B |22] -II  [0,3]  ;A|11  -F  [-1 , 1] -H  [ - 1 ,5  1 ; A [ 2 ] -F [-1 ,2 ] *H [ - 1 ,6] 

21:  A[31-H 1-2,5] ;A 14] -H [-2,61  ;A  [5] -F  [0,4 1-H (-1 ,2]  ; loq(A [5] ) -H[0,2] 
22:  P[24]*I;A[61*F[0,1]  ;A[  81 -F  [0,21  ;A  [91  *F  [0,3]  *H  [-1,41  ;1-H(  1,31 
23:  X[l]-B[12] ;X[2|-B[25) ;A|1]-H[7,3] ; .1-11  [4, 3] 

24 : 0-H [0,1] ;200*H[ 1,1] ;400-H[2,l] ;500-H [3,1] ;600-H[4 ,1] ;800*H[5,1] 
25:  6-1  ; f or  J=1000  to  5000  by  500 ; J-H [I , 1] ; I+l-I; next  J;15-I 
26:  for  J=6000  to  20000  by  1000; J-H [ I , 1 ] ; I+l-I ; next  J;30*j 
27:  for  J=22000  to  50000  by  2000 ; J-H [ I , 1 ); I+l-I; next  J 
28:  55000-11(45,1] 

29:  trk  0;rcf  10, F[*] , Y [ *] 

30:  trk  0;rcf  ll.H(»] 

3l:  H [ 1 , 3] -P ; Y ( 21  - I ; for  T=  Y [ 1 1 to  60 ; T-Y ( 1 ] -C 
32:  ash  "T PUNK" 

33:  next  T 

34:  dsp  "ONLY  60  SIC  I FVTLS  ArLOWFD" ;ash  "BPR" 

35;  p r t "SIr  LEVELS  U5Fn";qsb  "ACTIVr"  

36:  *BPP" :heen; we i t ) 50; teep;wait  1 50 ; beep ; wa i t 3000 ; reT 
T7:  * A<3'T'IVFH  : 

38:  dr.n  """  BEL  RTF  "OUTPUT"  INFO"  " ACTIVF" ;asb  "OOP” 

39:  R to 
40:  ate  - 2 

41;  ret 

* 4?  : " F FI  FTr  " : for  I^r.-l  tnl  by  - 1 ; 0- F fo  , 3 1 ; i f F f I , 3 1 =0 ; nev  t I 
43:  1-Y  [ 1 ] ; if  I«0 ; 1 -Y{ 1 1 *Y [ 2 ] 

44:  for  I = Y 1 1 1 -1  to  0 hv  -l;I*Y(2];if  Ffl,31f0;oto  +2 
45:  next  I 

46 : for  N«1  to  45; if  H [N ,4 ] >F [ Y [ 1 ] -1 ,5 ] ; 0-H [N , 4 ] *H [ N , 2 1 ;q t o + 2 
47;  next  N 

48:  for  N*1  to  45;  if  H [N  ,4 ] DO ;next  N 
49:  M-P-Hll , 3]  ;if  Y [ 1 ] *1 ; 1-Y  [ 2] 


50 : 
51 : 
52: 
53: 

5 4 ; 
55: 

56  : 

~ 

5fi  : 
59  : 
CO: 
61: 
62: 
63: 
64: 
65; 

6 6 : 
67: 
68: 

6 9: 
70: 

7 i : 


dsn  "nn.  FTINr  SIGNIFICANT  LEVEL"  ;nsb  "BBP" 

prt  " REPEATING  T FVEL  " 

if  H [5 , 3 ) >F  ( Y 1 1 1 - 1 ,5  1 ; O-IM  5 # 3 1 ♦H|6 , 3 1 *H  ( 7 , 3 ] *H  I 1 1 , 3 1 -R  | 14  , 3 ] ; .'T'l  -1(8,31 
if  V (1  ,3}  *1  ; .001 -H  | 8 ,31  -Ilf  15,3)  ;M  (-1  ,6]*H  [7, 3) 

. I - H ( 4 , 3 1 ; 0-11(3, 31 
oto  31 

ret 

" PI"  : f xd  1;  2-A  ; " " * A$ ; " 0" -A  $ ( 1 , 1 ] ; beep  ;wa  it  1 60  ; hppn  ;4sn  C' S ( 3 ,371 
cnt  " " , A $ 

if  A $ ( 1 ,7J  ="  - 2 1 n* 10" ;g  sb  "ACTIVE" 

if  A $ [ 1 , 1 ] = " 0 " or  A $ ( 1 , 1 ] = " 1 " or  A$ ( 1 , 1 ] =" 2" ;qto  +7 
if  A$ | 1 , 1 1 3"  or  A$(l,l]="4"  or  A$ [ 1 , 1 J =" 5"  or  AS|],1|*M6 
if  A$  ( 1 , 1 ] ="  7"  cr  A $ 1 1 , 1 ] = " 8 " or  A$  [ 1 , 1 1 =" 9 " or 
if  A$  ( 1 , 2 1 = " . 1 " or  AS  ( 1 , 21  . 2"  or  A$  ( 1 , 2 ) ="  . 3" 

if  A$| i ,2) =".5"  or  A$(1,2J =".6"  or  AS ( 1 , 2 ) =" . 7" 
if  AC ( 1 , 2 1 =".9";nto  +2 
qtC  -9 


;otO  +6 
AS  ( 1 ,2]  ="  . 0"  ;qto  +5 
or  A? I 1 ,2 1 =" .4" -oto 
or  A0(1 ,?)=". 8 ";oto 


+ 4 
+ 3 


if  A * 2 ; n t O -10 

if  A$  ( 3 , 3 ) ="  * " or  AS(4,4]="*"  or  AS  ( 5 , 5 ) ="  * " or  A $ ( 6 ,6 1 ="  * " -ffn  1) 
va  1 (AS)  -L;st r <L)-A$;A$(2]*A$(11 
" "*CS( 1,371 

ret 

72  : " Y/M"  : 2*  A ; heeo  jf’sc  C$ [ 1 , 32 ] ; ent 
73:  if  At-2tn*10  and  A #- It n“ 10 ;n to  -1 
74 : " 

76:  ret 


" " , A 

"*CSf 1 ,321 


17-r 

"A CONTACTS": 

77: 

if 

F ( T — 1 ,4 ] >100 ;" 100008 5007000 50004 000 3000 2500 20001 600100" 

78  : 

if 

F (T- 1,4  1 < = 100 00 700 0 5000 300 020001  0000 7000 6000 30 007 0001 

79  : 

for 

v:=0  to  9 

80: 

if 

F (T-l ,4 ] >va 1 (W$ (W4+ 1 ,W4+4 1 ) ;qto  +2 

81: 

next  V' 

82: 

for 

1=1  to  14 

83: 

if 

val  ( W $ ( W 4 + 1 , VJ 4 + 4 1 ) <val  (V$  (61  + 1, 61+61  ) ; n e x t I 

84: 

if 

val  (VS161  + 1 ,61+61  ) =0  and  13(14]  <140; P.  (14  | + 1 * K ; 

ret 

85: 

if 

I > 14  ; 1 4 ♦ I 

86: 

val  (V.$  (W4  + 1 ,W4+4(  ) -R  [ 8]  ; I-l-I;  val  (V$  (61  + 1,61+6)  ) 

-8(6( 

87: 

va  1 

(VSI6I+7, 61+121 ) -R ( 7 ] 

88  : 

i f 

1=0  ; 4-1 ; 0-J  ;qto  +14 

89: 

i f 

I = 1 ; 9 ♦ I ; 4*  J ;o  t o +13 

90: 

if 

1 = 2 ; 1 4 ♦ J ; 9-J  ;a  t O +12 

91: 

if 

1 = 3 ; 1 9- 1 ; 14-J 

92: 

if 

1 = 4 ; 2 4 * I ; 19-.7 

93: 

if 

1=5  ; 29-1;  2.4- J 

94  : 

if 

1=6 ;39-I ; 29-J 

95: 

if 

1 = 7 ; 49*1 ; 39-J 

96  : 

i f 

1=8; 59-1; 49-J 

97: 

i f 

1=9 ;79*I ; 59-J 

08: 

i f 

I =10; 99*1; 79-J 

99: 

if 

1 = 11 ; 119-1 ; C>9->1 

*20265 
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100:  if  1=12 ; 139-1  ;1 19*0 

101:  if  I = 1 3 ; P [14] -1-Pf 9] -I ; 1 39*J 

1C2:  if  val  (11$  ( 51  + 1 ,51  + 5]  ) =n;p  ( 14] -1*1 

103:  val (U$ f 5J+1 ,5J+5] )*P[4] ;val (U$ [51+1 ,51+5] ) *F[3] 

104:  P [ 4 ] - ( F [ 6 ] -R  [ 8 ] ) ( P [ 4 ] -P  13  ] ) / ( P [ 0 1 -R  [ 7 1 ) *P  [ 5 ] 

105:  for  K = 0 tc  1 7B ; i f P [ 5] <vr 1 ( U$ [ 5K+ 1 , 5K  + 5 ] ) ;rox t K 

106:  (val  (U? [ IK -4 , 5K 1 ) -P [ 5] ) / ( val (U$ [ 5K-4  , 5K ] ) -vs)  (U$ [ 5K+1 , ^ + 5] ) ) +K*K 
107:  rrt 

1 oe  : "PFFfir  r f ? ] > = 1 ; p*  j ; A * r ; Of  Y 


109: 

i f 

P (2] >5; 1*J ; 5*  I ; 1 *v 

.110: 

if 

r I 2 ) >10; I-J ; 14  *1  ; 2 *Y 

111: 

i f 

! [ 2) >1 5 ; I*J ; 19*1 ; 3*Y 

112: 

if 

r ( 2 1 >20  ; I*.J  ; 24  * I ; 4*Y 

113: 

if 

T ( 2]  >2r  ; T*.J  ; 29*1 ; 5*v 

•114  : 

if 

1 ( 2 1 >30 ; I*J ; 39*  I ; 6*Y 

115: 

i f 

F [ 2 j >40; I * J ; 4 9 * 1 ; 7 *Y 

116: 

if 

F (21 >50; J*J ; 59* 1 ; P*Y 

1 17: 

if 

1(2) >60; I*J ; 7 9 ♦ I ; ‘ *Y 

HR: 

if 

1(2) >80;I*J ;99*1; 10*Y 

119: 

if 

P I 2) >100; I*J ; 119*1 ; 1 1*Y 

120: 

i f 

P ( 2] >120; 1*J ; 1 39*1 ; 12*Y 

121: 

if 

P | 2 ] >1 40; I*J ;P [ ] 4 1 -1*P[ 9] *1 ; 1 3 

122: 

if 

val (U$ 1 51+1,5I+5J ) =0;B ( 14) -1*1 

12  3:  val  (U$|  5J  + 1, 5J  + 5]  )*r<[4)  ;val  (11  $[51  + 1,51 + 5]  ) -P  [ 3 ] ;int  (P[2]  ) -A 
124;  f r c ( P [ 2 1 ) * J 

125:  (val (U$|5A-4,5A] )-val (U$[5A+1,5A+51 ) ) (-J)+val (U$[5A-4,5A] ) *R [ 5 ] 
126:  val (V$ [6Y+1 ,6Y+6 1 ) *P [ 6] ; val (V$ [6Y+7 ,6Y+12  ] ) *R  [ 7) 

12  7:  P ( 6 ] - ( P [ 6 1 -P [ 7] ) ( P [ 4 ] -P [ 5] ) / ( P [ 4 ] -P [ 3 ] ) *F  [ P ] 

128  : ret 

12  9;  TOPPrCTINC  RP":for  N = 0 tc  10;if  B [ 4 ] < va  1 (<~$  [ 5+  1 6N  ,6  + 1 6P  1 ) ; pox  t 
130:  val (rr [5+16 (N-l)  ,6+ 16 (N-l)] ) *P [6] 

131 : val  (rr  ( 5 + 16N  ,6+16n  ) ) *p  [7] 

132:  val (C$ [12+16 (N-l)  ,16+16 (N— 1)] ) ♦ P ( 8 ] 

133:  val (r$ [ 1 2+16N  , 16+ 16N 1 ) *F [9] 

134:  ( (B|4)-F [7] )/(P[6]-r  (7) ) ) (P[P]-P [9] )+B [8]*P  [10] 

1 15 : rot  

CO'P”  : ( ( 106  .p  5/P  [21  -1.12  5)  tn~5) 


1 9*F-  [61 


136:  "TFY-T 
137:  P |12)/r  (61-170*0  [5) 

1 3 B : ret 

iwr  "TFt'P  carp  +’x  PUP"  rexj:  (16. 0082991-.  99662561  r (2F  [21  )) -480001 

1 40:  . 0004  6 771  pO  [ 1 1 *r  [ 1 ] /]  A 00  0 ) + . 00001  i 1 3 1 r (X  [ 1 1 *0  ( 1 ) /I  4 000)  “ 2 - 

141:  1/  ( . 00  3300 3+ A )♦ A 
142:  A-273. 16*P [5] 

14  3:  ret  __ 

1 44  : "liur  COf'P"  : (t  [T,  l]+56) /P.*P{  1 J ; int  ( P 

14  5:  D/4  + 1 *1  1 4 1 ; int  ( P ( 4 ) ) *P  [ 5]  ; f r c ( R [ 4 ] 

146:  K | R [ 5 ] ,2]  + (K[P[5]+l,2]-K[P[5]  ,2])P 
'14  7:  P[  71 -f  (25)  -F  [ 8 1 

148:  for  u*2  to  13;if  P [ V.  ] <F  [ N ,P  [ 2]  ] ; nei 
14  9:  E [N-l  ,1  [2| ] + (F [N-l  ,P(21 +1]-F[N-1,R 
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150:  E ( U , 1 ( 2 ] ]+(E(N,R(21  +1  | -I  | N ,P  l 2 ) ] ) F l 3 | -P  ( 10  | 

151:  (PIP J-R19] )/(P( 10] -F |91 ) -F ( 11] 

152:  8*(N-1)+R*F[11J-P(12] 

153:  if  R( 121  >100; 100-PI  121 
154:  if  F(121  <5;5*H  12) 

155:  re t — — 

T?F7  "trunk" : 

157:  if  f 1 q 9 ; C f q 9 ; q t C + 76 

158:  fxd  Ojstr <T)  -Af ;A?  |2]-A$]  1 ] 

159:  dsp  "PVALUATP  SICNTPICANI  I.PVFE  «",AP[1,3|  ;oF.h  "PPP" 

160:  see  l;rr  + "f.IC  T.FVPLf  " , va  1 ( A $ ( 1 , 3 1 ) 

161:  if  F(T-1,4| <=1 ;cfn  1? 

162:  if  not  f 1 o 1 2 ; " FNTF.F  PPFSS  CONTACT  (tenths) "*C$;oto  + ^ 

16  3:  nsb  " AK.O  CONTACT*" 

164:  f xc!  1 ; s t r ( p r rd  ( K -0  ( 16  ] , - 1)  ) - A $ ; A $ ( ? ] -A  ?•  1 1 1 

165:  "FNTFP  PPFSS  CONTACT  : ("  -C  S [ 1 , 21  1 ; A $ [ 1 , 5]  -CS  I 22 , 26  1 ; 1 er  (A  £)  *C 
166:  ” ) "*  C$ 1 22+C  , 22+C 1 ; " " - C$ I 2 3+C  , 2 7+C ] 

16  7:  nsb  " D I " 

168:  I>*  F ; i f I + E ( 1 6 1 < 1 rr  r +F  ( 1 6]  >lf?0  ;n  tc  -6 

165:  if  L.+  B 1 16 1 >B  [ 1 4 ) ;spc  2;prt  "PLICHT  F 1NISHFD"  ;sr.c  2;nst  "ACIlVr" 
170:  if  6 1 e 12=0 ;qto  +5 

171:  if  r-r  nd  (L  ,-l ) <=pr  nd(K-E  [ 16]  , -1)  ;ato  +3 
172:  rise  "KfiTEP  N AND ATOPY  CONT  AM  " ; n sb  "DEB" 

173:  cto  -10 

174:  if  p r na  ( K-B  [ 1 6 1 1 ) =pr  rd  ( I, , -1 ) ; vs  ] ( V5$  | W4  + 1 ,W4  + 4 1 ) - F 1 1 , 4 ] ; q t < *6 

175:  L+E(  161  -F  12]  ;qst  "PRESS  CC’NR" 

176:  B [ 2 4 | ♦ 1 

.177:  if  F ( 8 J >=ve  l(V$[6I+l,6I+6]  ) or  R (8  ] <*val  ( VS  ( 6 1 + 7 ,6 1 +12} ) ; otc  +2 
178:  RI8]B[23]*F|P] 

179:  8(8)  ♦ F | 'J  , 4 ] 

180:  if  P |T-1 , 4 ] >F [T,4 ] ;qto  +10 

181:  fyf  ljdsr  "prrviOUP  CONTACT  CTP  THAN" ,L;arh  "TOP" 

18  2;  ate  -2  0 

183:  "IS  NFT  DATA  AT  CONTACT  ?"  * C?  [1  , 32  1 ; n sh  "Y/N" 

184:ifA  = -2fn'‘10;ato+6 

185:  ert  " TFMP  (,  liUMiriTY  ART  NIPPING  AT  THIS  A'ANOATOPY" 

Iff:  fxd  0 ; r r t " PFrBS  f rvn."  , p |1  ,4  | 

187:  for  N = 3 t o 6 ; i f F | - 1 »N ] *0 ; F |T , 4 1 -P  | - 1 , N 1 ; r e t 
188:  next  N 

189;  ret  

190:  fxd  l;prt  " CONTACT*  ,P 

151:  "ENTt'P  TIFF  ((.01  tc  160  n i r nter )"- C$;  ash  "DI" 

192:  I,-P(T,5];if  I, <.01  rr  I>150;otc  -1 
193:  if  L>F (T-l ,5 | ;qto  +3 

194:  fxd  2 ; dsp  "PREVIOUS  SIC  I F.V  1 INF  V.  A S " , F | T- 1 , 5 ] ; a r t "IIP" 

195:  otr  -4 

196:  fxd  2 ; pr t " TIME", F|T, 5] 

147:  cka  1 1 ; " F.NTF;  F REFERENCE  OPD  I N ATP  (tenths)  ” * C$ ;nsh  "DI" 

198:  L-Bll]*Z;if  L<91  rr  L>99;ntc  -1 

199:  if  I, >94  and  L<96;qto  +2 

*6749 


b 


200:  ricp  "adjust  the  KEF F. PENCE  ADJUST" ;qsb  "PBP" 


2C1:  if  not  floll ;otc  + 

202:  "DOES  MISSING  DATA  S7  0P  HE  FE  ?"*C$;qsb  ”Y/N” 

203:  if  A=-2t n~10 ;qto  -20 

204  : if  A = -l t n“l 0 ; sre  l;crt  "MET  DATA  PFSUMESHAD  PFFN  MISS  INC" ; SRC  I 
20  5:  prt  " PEF  RD"  .Dili 


6:  "FNTFR  TEMPERATURE  RD  (tenths)  "♦CS; qsh  "DI" 
7:  L*D[2];if  L<1  cr  L>90;qtO  -1 
S:  prt  " TF.MP  RD"  , P I 2 J 


32  1 inch 


(S5/Z)F  [3]+P [41  ;osb  CrFPFCTING  RD 
B[4]+R [10]-P [ 3 1 ♦ L 
orb  "FHIM  CCMP" 

F [ 121-F  (1  .21 


sre  2;  "IS  PPINTFD  DATA  FOP  SIC  I.FV  C'K  ?"-C 
if  A = -2 1 r“I 0 ; rr  t ” PF  PRATING "into  -6 


1+C+C 

6.11*]P~(7.5F  [T  ,11/(237. 3+ F[T,1 ] ) ) +P 1 1 1 
F I 1 ] (7  » 2 ] /1C0-*  I [1] 

( F 1*1  ,1  1+273.16)  (1  + . 376f'32*  (E  [11/F  U ,4  1 ) )*F  [7  ,3] 

fer  1=7-2  tc  0 tv  -1;1*Y[2]  ;T-Y[l);if  F [ I , 3} =0 ; nex t 1 

F| I ,01  + (lee  (F  [1,4 1 )-lcn  (F  [7  ,4]  ) ) 6 7. 44 2 ( (F [ I,3)+F  [7,31  )/2)-F [7,6] 

I rrr ( (F [T,3|-F [I , 3| )/. C02  (F  |T ,6) -F  (1,0)  ) ,-l)  -A 

dsr  "'jrM  LAPSE  FA7 F (d/krr)  : " ,A 

t r P 0 ; ref  10, F [*)  ,7  [*) 

etc  +5 


if  P<=45;gtc  +3  

dsr  "ONLY  45  ZONE  L EVELS  ALT, OKED"  ;qsb  "BBP" 

>t t "ZONE  LEVELS  USFD":asb  "ACTIVF" 


xd  0 ;r  rn  "OK  FOP  MESSAGES  TO  HEIGHT  , Pi  [P-1,1]  ;qst 


4 : 
245: 
24  6 ; 
24  7: 

2 4 fi : 
249: 
*5  34] 


. , -!  + ( (P [ H 1 -P l 6]  )/(R[7]-E [6] ) ) (F  [T,5]-F [1,51  ) *U[F ,41 
(2F[7  ,3)/(F  [T  ,61-P  [81  )-(F[T,31-F  [I  ,31  )/(F[T,61-F  [I  ,61  ) ) 33.721*A 
1 co ( f |7  ,4]  ) +1/A-H [P ,21 


if  H f P , 4 l > H f 1 1 , 3 1 ; 0 *H  [ 3 , 3 J 
if  H[3.31=2;ato  +46 


if  f[4  ,31=.];int  (f’[P,4J  10)  /1 0*F  [8,31  ? H { 8 , 3 1 + . 1 *P  { 11  , 3 1 

if  H |4 ,31=.5;irt  (FI[P  ,41  ) *H[8 ,31  ;int  (LMP,41  ) + .5-H  [11  ,31 

if  H | 4 , 3 J * . 5 ; i f f re (F f P ,4 ) ) > . 5; P f P , 3 } + . 5-H [8 , 3] ; H [ 11 , 3) +. 5*H [ 1 1 ,31 

if  P|  4 ,31  =1 ; int  (11  [P  ,4  1 ) *H  [R  ,31  ; int  (H  [P,4  1 )+l*F  ( 11  ,31 

if  II  |8  r 3) -HI  14  ,3]  and  H [ 11 , 31  =H  [ 1 5 ,31  ;qtO  +4  1 

if  I!  | P , 4 | < =1)  | r> , 31  ; H [ 6 , 3 | *F  [ S , 31  ; H [ 7 , 3 1 *H  [ ] P , 3 1 ; n t O +2c 


" ;o  J5c.  ■ » : t 


r ] sr  i r c 


ENTI’I  TITE  Al.CI.ES  STOP  ’ ISSINC  "♦C?  [ 1 , 32  ] ;o?E 
L l:  1 1 1 , 3 ] ; i f I < . C'l  cr  L>lLO;ntc  -1 
if  H(S.  3|  > = H l ti  ,3)  ; q to  49 

if  H [8,31  =G;0*ll|  9,3]  ,5]  -Hi  10,  31  ;qtO  + t, 


Epc  l;prt  "TOP  Cf  ZONE  DATA","  1 If  1. : " , H ( fi  , 3 | 
f xd  2 ppr  t " E.L  ANC  LE"  ,H|9,31 


S f 1,25)  ;str  (H[fl  ,3]  )-C$|2C|  ;q?E  "El 
-2 


fxci  1 ; i f li  |3  ,3)  =2.;f  xd  2 

"FNTFP  KIEV  ANGLE  AT  TIME- : ” ♦ C$ [ 3 ,2 5 1 ; F t r ( E [ ] 1 , 3 I ) +C$ ( 26 ] 
cfo  ll;gsb  "Dl" 

I + H U 2 , 31  -if  i,<0  or  L>90;otc  -3 

if  f lq 1 1 ;oto  -22 

prt  " TINE  ,H[  11  ,31 

f xd  2 ; pr  t " EL  MvCI.E"  [32.3) 


A RE  PFINTFC  ANCLES  FOP  TIFT  OK  ?"•»  C$  | 3 , 32  ) ;nsh  "V/N" 
if  A = -2t  n~10;r r t " PEPDATJNC " ;qto  -37 


(II  I 0,3] -I'  ( P , 4 ] ) / ( H l P , 3 ) -H  [ 1 1 , 3 ] ) -L 

if  I.|  10 ,3J  -1: 1 13,  3] >180;H| 13, 3)4  360-F  (13,3) 

if  HU  3, 3]  -H[  10 ,3)  >180  ;H  | 10, 3]  + 360+H110, 3| 

H [10, 3] -L  (II [10,3] -H[ 13,3] ) -H[P,5] 
if  H|P, 5) >360;H |P ,5) -360-H |P,5I 
H 1 9 f 3 ] “L  ( 11 1 9 , 3 J -11  [ 1 2 , 3 ] ) *H  [ P , 6 ] 

P+1*P*H[1 , 3 | 

H ( 11  , 3 ] -II  | 5 , 3 1 *H  1 1 5 , 3 ] ; H ( 1 2 , 3)  «h  ( 6 , 3 J ; H [ 1 3 , 3 1 *H  ( 7 , 3 ] ; H [ 0 , 3]  *»i  [ 14  , 3 1 
tr  k 0 : ref  1 1 ,Ii  ( * 1 


Pif  J5  ;ot  o -6 


(3  Old! 


I ; orf  "ppr" 


300 : dsp  "Al'TOf  AT  1C  LOTH1!  A’l  ALT  CF  30Kf  " ;or,h  "LIT" 

30 1 : sj:  c 2 

302  : rrt  " AUTOMATIC  CUTPHTAT  30  K I LOf'F  1 LPT 

303:  spc  2 

304  : t r F Ojldp  12 
305:  end 
* 5 P 7 0 
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d.  Output. 


a) 

Sound  Ranging,  Computer  Met, 

Fallout, 

Ballistic  3 

TRACK  0 

FILE  12 

G: 

cro 

"TMFN-OD  Fl’TX 

" ;q?h  “ L f? P 

n 

1 : 

r ip 

OS  ( 100}  ,1  $ 15}  , 

F 1101 ,C[0: 

16,1:14 

1 

£.  Z 

c ir 

P5»  I 1021  ,C  S |lf | 

,OS  1 10  1 ,1  f 

(16)  ,i.f 

16]  / S|  J02I  ,l  5 IK  ] 

3 : 

ur 

F 1-1:60,1  :f  1 

12) 

4 : 

d in 

1-.  (-2:4  5,1:6)  ,L 

US) 

5: 

c i n 

11  $ (2, 32)  ; tine 

500 

6 : 

t r k 

0 ; 1 d f 9 , P$ ,C  5 , 

CS.LS  ,f.  f ,C 

7:  nc  0 ; r r t "FLIChT  DATL:  " ,DS  l 1 ,16] 
8:  Sfn  4 ; j f not  ioe2;cfq  4 


9: 

sr  C 

C 

10: 

< ' r>  r. 

II 

r n nkssact  ouipoi 

" ;osb 

" FBB" 

11: 

j f 

F$ 

|101 ,10] 1="Y" ;sfq 

7;  cfq 

8 

12: 

i f 

MS 

( 1C  1 ,101 ) ="U" ; cf  n 

7;  s f n 

f 

1 3 : t r k 0 ; 1 0 f ]o,f[*],Yf*j 

14:  t r 1 0 ; Id  f 11,H[*] 

15:  " 5 9 ) 4 &80 : ; 3 S?  fi!/-2'  71  ( "♦F!$[l] 

16:  " 1 0 FINN  LRC-I PCVEZDBSYFXM  J UOK  "♦MS  [2] 

17:  char  (0)  *H$  [ 1,1  ,1]  ;char  (10)  ♦«$  [ 1 ,9 ,9]  ;char  ( 7)  ♦(!$  M ,2]  ,21  1 
18:  char (13) ♦H$[l, 3, 31 
19:  osb  "INTHT” 

20:  rfo  3;d?r,  "SOUND  F ANCI  NC"  ; q eh  "PPP" 

21:  if  flq4;wtc  2,2;for  N=1  tc  75;wtb  2,0;neyt  M;vtc  2,0 
22:  q t c:  + 69 ■ 

?3:  "BBM" sheer ;wa i t 1 50  ; be  nr  ; wa  i t 1 50;heop;^a  t 30QQ;rct 

24:  « IM  HI"  :f  or  M = 1 tc  V [ 1 1 ; i f F (K,  2)  #(  ;nto  47 

25:  for  K = F to  Y)l);if  f )N  , 3] -0; nex t V 

26:  ( F [ K , 5 J - F ( N , 5 ) ) / ( F [ K , 5 ] - P [ N - 1 , 5 ] ) *C 

27:  F ( K , 1 1 -C  ( F ( K , 1 1 - F l N - 1 , 1 ] ) ♦ F [[,,  1] 

28:  F iK  ,2 ) -C ( F ( K , 2 ) -F  | h-1 , 2 J ) ♦ F (N  , 2 J 
29:  F |K  , 3) -C (F  [ K , 3 1 -F  [N-1,3] )♦!  I K , 3 J 


30: 

F IK ,6] -C  (F  | 

K,6)-F  [N-1,6]  )-l  |(  ,61 

31: 

next  K 

32: 

ret 

33: 

"FOOT"  :fnt 

2, "5"  ,/ 

34  : 

if  flc4  ard 

flq8;  par  2;  wtc  2,2;wrt 

2 . 2 ; w t.  c 

2,0 

35: 

f r t b , 7 

• 

36: 

if  f 1 o 4 and 

fln7;par  G;wtc  2,2;wrt 

2 , 3 , 2 , 8 ; 

wtc  2 

,0 

37: 

ir  f 1 o 4 ; w t c 

2,2; for  N=1  tc  30;wth 

2,0; next 

N ; w t c 

2,0 

38: 

ret 

39: 

" "■  ♦ P " : f n t b 

,z;r-c-r  0 

40: 

for  0 = ] tc 

P 

41  : 

frr  K=1  tc 

2 ;r  os  (M$  [ K 1 ,A$(C  ,0]  ) *F  ; 

if  F ; r f o 

1 ;o  tc 

4? 

42: 

next  K 

43: 

if  F = 1 cr  F 

=3  cr  F=5  cr  F-C;cfn  ] , 

2 , 5 ,6  ;oto 

4-5 

44: 

if  fin]  arc 

fln5;cfq  l;nto  +4 

45: 

if  fin]  ;wtc 

2 , 2 ; v;  r t 2 , 2 7 ; w t c 2,0;? 

fn  C;cln 

1 ,f  ;n 

tO  4 1 

46: 

if  f 1 q 2 end 

fiof;cfo  2;nto  42 

r 

47: 

sfq  6;cfn  2 

,5;wtc  2,2;wrt  2,31;wtc 

?,0 

48: 

wtc  2 , 2 ; w r t 

2 , F-l ; wt c 2,0 

49: 

next  C. 

*2  32  36 
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* / / 

'uu: 

61  : wtc  2,2;wrt  2,2,8;wtc  2 , U 

j 1 : r r t 

52 : "P*F":V (XX+YY)  -1(1] 

53:  at  n ( Y/ (X  + l e-60* ( X = 0) ) ) +2* For  (V ) *a t r ( Ie99 ) * ( X <0) *A 
54:  A*r [2] 

55:  if  A<0;360+A*I[21 

56:  ret 

"57:  "PEAnrP"  :cfq  1 , 2 , 5 ,6 ; pa  r 2 

5f  : if  f]o4  nd  flrfyfirt  3,cl2;wtc  2,2;wrt  2.3,A$(l,]2];wtc  2,8 
59 : if  f lr  4 end  f lo7 ; 12*E ;cf h "A*F  " 

60:  drp  Af  (1 ,12]  ;rrt  Af  |1,J2) 

61:  1$(!  5,95[*AF  1 1 ,J  1 
62:  if  flq9;cfn  6;ato  +5 
1 3 : f ri  t 3 , cl  2 

64:  if  fln4  and  fln8;wtc  2,2;wrt  2. 3 ,A$ ( 1 , 12 ] ;wtc  2,0 
65:  if  f 1 q 4 arc  f 1 c7  ; 12  ♦P  ;q  rb  " A * I " 

66:  ntr  +3 

67:  if  f la  4 end  flq8;frrt  3,  cl  5;  wtc  2,2;wrt  2.3,A$(l,15);wtc  2,0 
68:  if  fla4  and  f 1 o7  ; 1 5*F?;q  sb  " A * F ” 

69:  err-  A.  S 1 1 ,J  ) ; p r t Af  |1,J) 

7 0:  ret 

71:  "EELF-TE"  :cfo  3;^sp  " T’ESSAGE  BE: INC  DEEFTED"  ; wa it  1000 
72:  ret 

75:  “j>*r":i;  [l]*ccs(i  .[21  JTx ; h nVrb"7n  (F  [ 2])  *Y 

74 : rrt 

75:  "STKINC"  ;f  xd  f ; s t r (0  ) *F-.S  [ 1 , 5 ] 

76:  if  F <1000  ;B$  (2  ,4  ]*[-$  (3, 5]  ;"C"*F$  (2 ,2] 

77:  if  r <100,-r$  (2,4]*rf  [3,5]  ;"0"*PS  (2 ,2] 

76:  if  r<10;P$ [2 ,41*F $ |3, 5] ;"0"*E$ [2  ,2] 

79:  if  f < 1 ; 12  S ( 2 ,4  ) * P $ [3, 5]  ;"0"*P$  [2 ,2] 

80:  rrt 

81:  "ARRAY" : I ♦ F ' ; q r b "STRING" 

82:  P.$  [4  ,5)  *A$  [ 1 ,21  ;A*N  ;osb  "STFINC" 

83:  P$[3,5]  *A?f3,5]  ;S*F‘;qsb  "STRING" 

84:  P$[3,5] *AS[6,6] ;1*f;qFfc  "STRING" 

85:  B$  [2  ,5]  *A$[9 ,12]  ;0+*’;qsb  "STRING" 

86:  6$ [2 ,5] *A f [13,16] 

87:  if  fla4  one  f]a8;r-or  2 ; f m t 4,cl6;wtc  2,2;wrt  2. 4 ,A $ [ 1 , 16 1 ; wtc  2,0 
88:  if  f la 4 and  i 1 q7 ; 1 6 *B;g sb  " A ♦ B " 

85:  esp  AS [ 1 ,16 ] r t AS [ 1 , 16 ] 

SC:  ret 

51:  H l -1 , 5)  *F  l 2]  ;!’  [ -1 ,6  1 *P  [ 1 ] ;qrb  "P*P" 

92:  X*F  |4  ] ; Y*P[6] 

93:  prnc  (h  [-2 ,5]  *16/9 ,0)  *A*B  [10] 

54:  prnd(Hl-2,6]  ,0) *S*F  19] 

65:  j r r.d  ( Ii  [ - 1 , 4 | 1 0 , 0 ) *T 
96:  .0000001  *FI  [0,4  ] 

97:  0*1 

96:  if  l'[5,4]=0;rt.c  5;rrt  "SOUND  FANCINC  NOT  rrAEY";atc  +48 

99:  for  P=1  t c 5 ; i f H[P,4]=b;qtc  +13  ' 

*19405 


150:  r t r ( r r nd  ( W l - 1 , 2 1 , 0)  ) ■*  A $ ; A ? [2  , 4 1 ■*  F $ [ 2 2 ,24] 

151:  if  H | — 1 , 2 ] >=1000  ; A J | 3 , 5]  *P$ (22 ,24] 

152:  IS (1  ,12]-*? fl r 12 ) ; P? [13,241*0? [85,96) ;12*J 
153:  if  net  flo3;qtc  +34 

154:  ash  "LEALI F" 

155:  0*1 

156:  f r re’  ( H l -2  , 5 ] * 1 6/r  , 0)  * A;  i f A=0;64*A 
157:  i r re ( 1 1 1 - 2 , 6 ] , 0 ) *S ; i f S=0; 0*A 
150:  f rf(’  (H  (-1  ,4  ] 10  ,0)  *T 
15 5:  i r nd  ( H [ -1 ,2  ] , 0)  *Q 
160:  nph  " AHPAY " 

161  : . 0000001  *U  1 0,4  ) 

1 6 2 : for  0 = 1 t c 2 § ; i f H [ P , 4 ] *0 ;ato  + !>  3 

16  3:  if  F=1 ; 0 *J 

164 : if  0=2 ;next  P 

165*  if  0=  3 ; 1 * J 

166:  if  0=4  or  P=5;noxt  P 

16  7:  if  P = 6 ; P- 3* J 

168:  if  P>6;P-1*J 

169:  1+1*1 

170:  6 3 6 76  50  *S 

171 : y ( (S+H [P ,1  1 ) “2-5  “2cce (H f P ,6 ] ) “2) -Ss in (H [P ,6 ] ) *P ( 8 ] 

172:  (Scos ( H [P ,6 ] ) / ( S +H l P , 1 ) ))R[8] *P[1] 

173:  H |P, 51 *R[ 2] josh  "P*R" 

174:  P[4 ) *P[51 ;X*P[4] ; F[5] -R[4) *X;R[61 *P[7] ;Y*R{6) ;R[ 7] -R{61 *Y;qsb  "R*P" 
175:  prnd(  (R(U/(H  [P  ,4)-H[J  ,41  ))  .032  38,0) -S 
176:  H[0, 3] HIP , 1 ] 6371295/ ( 63 71299+H(P,11 ) *B (1) 

177:  H| 0 ,31H [J,l] 6 371299/(63 71299+H [J  ,1]  ) *E  [2) 

178:  r rrd( ( (Btl)-E (21 )/67.442(H [J ,21-H(P,2] ) ) 10 ,0) *1 

179 : tn" ( (H(P ,2]+H (J ,2] )/2) *C;prnd(Q ,0) *Q 

180:  prnd (I (2) *16/9,0) *A 

181:  if  A=C;64*A 

182:  if  S=0;0*A 

163:  asb  "APPAY" 

184:  next  P 

185:  osb  "FOCI" 

To 6 : spe  5 ’ 

167:  sfg  3;dsp  "FALLOUT  MET"  ;q  sb  "EBB" 

188:  str(prnd  (100  Oli  (-1,21/1013. 25, 0))*Av?A$(2,4]-*P$(22, 24] 

189:  if  I!|-1,2]>  = 1013.25;A?(3,5]*P$(22,24] 

190:  etc  +11 

191:  "ARRAY- 12" : I*f  ;qsb  " GTRINO" 

192:  P$ (4 ,5] *A$ (1,2)  ;A*M;esb  "STRING" 


193:  LC[4,5]*A?[3,4];  S*f  ; 5 sb  "STRING" 

194:  r$(4  ,5]  *A?  [5,6]  ;T*M;qsb  "STPINC" 

195:  E $ (3,5] * A ? f 7 , 9 ) ; G *M ; q sb  "STRING" 

196:  P $ ( 3 , 5 J *A  ? 1 1 0 , 1 2 ) 

197:  if  f]o4  end  flqR;por  2;firt  3,cl2;wtc  2,2;wrt  2 . 3 , A ? f 1 , 12 ] ; w tc  2,0 
198:  if  f 1 e 4 end  f lo7;  1 2*1  ;os)  " A * F. " 

199:  drp  A$(l,12);prt  AS  f 1 , 12] 

* 1 4 5 1 6 


I 


H |-1,5]  -P  ( 2 ) ; 1 1 [ - 1 ,6  | -P  ( 1 ) ;ash  MP*P" 

X-F  (4  ] ;Y-F  [6] 

1*1 

P| -1.21 -Cl  0,4  1 

for  FJ=1  tr  27;if  II  (P  ,4  ) *0  ;qto  + 13 

P-2-J 

if  P=l;(-J 

if  F = 2 ; ne  x t P 

if  P=3jl-J 

if  P = 4 rr  P=5;n ext  P 
if  P = f;p-3-J 

if  P=7  cr  F--P  or  P*15;P-1-J 

if  p = 9 or  P-ll  or  P = 13  or  P*]6  or  P=  18;  next  I 
if  P = 2C  cr  F =22  or  P = 24  cr  P=26;next  P 
6371299-S 

v(  (S+H[P,l])*2-ft'2ccs(MP,fc]  ) *2)  -Ssin  (H  |P  ,6  ] )-I  [6| 

(Scoe (HIP, 6]  ) / ( S + H | P , 1 ] ) ) P | 8 ] -PI  1 ) 

H(P,5] -P| 2] ;qst  " P-P" 

P f 4 j -P  | 5)  ; X*P  | 4 | ; K | 5]  -P  | 4 | -X;  P 1 C | *P  | 7 ) ; Y *P  | (>)  ; I;  | 71  -P  ( f | -Y;nrb  "I  -p" 
pr  nd  ( ( P [ 1 1 / ( H [ P ,4  1 -li  [ J ,41  ) ) . 0 32  36  , C ) -S -C  1 1 , 2 1 
H(0 , 31  H (P  ,11  6371299/(63  71299+M  (P,l  1 ) -I.  fl  J 
li  1C  ,3]H  l J,  1 1 6 3712  99/  (63  712  99  + H ( J ,1  ] ) -L  |2] 

(B  11 ]-Bl2) )/6  7.44  2 (H[J,2| -BIP,2] ) -C[T ,31 ;Frnd (C( I ,3)  ,0) -T 
tn“((H[P,2J+H|J,2]  ) / 2 ) -0-C  [1,4]  ;prnd  (0,0)  -( 

F I 2 ) — C [1,5] 

if  I<=14 ; I+l-J-CI I ,1] 

next  P 


for  Z = 1 to  1 6 ; l f C{Z  ,41 #0;next  Z 


H I — 1 ,4  1 — C (0,3] 
for  N = f)  to  Z;34P.38395C[N,4]  /C'  I N , 3 ] *C  ( N , 6 ] ; nox  t M 
C10,91/12?5-C10,10) »C| 1 ,91 /121 3. 3-C|l ,10] jT(2 ,9] /1184.4-C12 ,10) 

C(  3,91/1 139. 2-C[  3,10)  ;C|  4 ,9 ) /1P84 .6 *C | 4 ,10)  ;C|  5 ,91  /1  0 32-C(  c.  ,10] 

C|6, 9]/957 -C  16, 10];C|7, 91/863. 4-C(7,10);C|F:,91/777*Cf«, 10] 

C 1 9 ,9 1 /6  97. 4 *C | 9 , 1 01 ;C ( 1 0 , 9| /590  *C [ 10 , 1 0 ) ; C | 1 1 ,9 ] /46  7-C | 1 1 , 1 0 ) 

Cl  1 2 ,9)/364.8-C[ 12 ,10] ;C1 13 ,9] /266 .6-Cl 13 ,101 ;rf]4  ,91 /] 94.fl-r( 14 ,10] 
C[ 15, 9 j/142. 3-C[15,10] 

100C (0,10] -C( 0,11] 


CIO, 3)/288. 2 -CIO, 6] 

CU,  31/287.5-Ci  1,6]  ; C | 2 , 3] /28  5 . 9 -C  l 2 ,6  ] ;C  | 3 , 3 ) /2F  3 . 3 -C  l 3 ,6  ] 

C | 4 , 3] /2L0-C | 4 ,6  J ;C | 5 , 3) /2 76 . U-C ( 5,6] ;C|C,3]/271 . 9-C l 6 ,6 ] . 
Cl7,3J/265. 5-Cl 7,6) }C(P ,3] /259-C18 ,61 ;C(9 ,3)/252. 5-Cf 9,6] 

C (10,3]/24 2.  7-C | 10,6 J ; Cl  1 1 , 3J/2  29. 8 *C| 1 1 ,6]  ; C| 12,3 )/2 16.8 -C | 12 ,6) 
C 1 13 ,3]/216. 7-C  ( 13  ,0]  ;C[  14 , 31/216. 7-C  [ 14  ,6]  ;C  1 15,3  ]/2  16. 7-C  ( 15,6] 
to  +9 


for  F=8  to  3 4 ; i f 1!  (P  , 4 ] =0;oto  +21 
if  P = 8;0-»J 

if  I =n  or  P=1 0 or  P=ll;next  P 
i f F = 12;P-J 

if  P = 13  or  P=14;nryt  P 
if  P = 1 5; 1 2*J 

if  P=lf  or  P = ]P  or  F=20  or  P~22  or  P=24  or  F=2f  or  F=2P;rrxt  P 

if  p = 37  or  P = 1 9 or  P=2 1 or  P = 23  or  P = 25  or  P = 27  or  P = 29 ; P-2*.F 

i+  P>29;  P - 1 -*  J 
r 3 7 1 299-S 

V( (S+H IP,1 1 ) "2-P“2ccs(H[P,6] ) “2) -Fsin (H fPf6) ) ♦PfP] 

(Tecs  (H  f P , C'  1 )/(E+!F[Pf  1 l))P|P]*ni) 

P IP  ,51 *F | 2] ;orf  " F * r " 

f ( 4 1 *P  ( 51  ; X*P  f ^ 1 ; T' ( 5 1 -P  l 4 1 -*X  ; P ( 6 ] *8  ( 7}  ; Y-»P  ( f> } ; P ( 7 ) -P  | f ] -»V  ; o rt~ 

r rnr«  ( (P[  1 ] /(H  [P,4  ] -V  [J  ,4  1 ) ) .032  38  ,0)  *S 

rrrr*  ( r[  2 ) * 1C/9 , 0)  -A 

if  A=P;f>4-A 

if  P*0;0*A 

or-l-  "APFAY-F'O" 

1 + 1-  1 


100-r 
rj h " 
0 ♦ r 1 ; 
0-r  2 ; 
n r 1 " 

0 * r 3 ; 
n -*  r 4 ; 
0 - r r- ; 
0 - r6  ; 
f » r 7 ; 
0 - r P ; 


r Or 

7-r3  2 
('  * r 1 ; 
4 * r 1 r) 
0 *r  2; 
4-rl3 
0-r  3 ; 
0 ♦ r 4 ; 
0 - r 5 ; 
O-rf. ; 
0 - r 7 ; 
0 -r’>  ; 
0 -r9 ; 
0*rlP 
Onll 
o-rl  2 
O-rl  3 
Or  14 


l;27-r2;13-r3;8*r4;5*r5;4-r6;2-r7;l*rP-r9-r30-rll-rl2-rl3-rl4-r]5 
7 3" 

73-r23  20*r3  ; 12-r4;  1 0-r5;  4 -r6-r7;  3*rR  ;nrP-  MT3" 
67*r3;25-r4;2O-r539-»r6;7-r7;5-rB;?-rc'-rl0-rll-rl2-r]3-rl4.»r]5 
■l  3" 

5 5-»r4;21-rc;ll-r6;c-r7;4-rR;3*r9-rlP*rll-r]2-rl7*rli*-rl6;nrl  ••  r 7 " 

4 4 ♦ r r ; 1 3-r6  ; 11  - r 7 ; 1 0-rP  ;nrl  "T3" 

59-rfi;?6-r7;19-rR;9-r9-rl0-rll-r12-rl3-r!4-*.r]r';nrP  "77" 

4 ] - r7;  2 3*  rp  ; 1 3-rn-r]  0-r  11  -rl  2-rl  3-  r 1 1 -rl r ;nr^  ” 7 9 " 
35-rR;74-r0-rlO-rll-r]?-r]3-rl4-rlr;orl  MT3" 
44T9*r.ir*rn*rl2*rl3*rJ4*rlS:nsh  "7  3” 


1 ;43-r2;22-r3;15*r4;ll-r5;P+r6;6-r7:  - r>  ; 4 - r 9 ; i*r 
-rl3-r.l4*rl  5 ; 0-r  ; n rP  "03" 


57  - r 2 
;qrh 
4 7-r3 
; <7  £P 
32-i4 

2 5-rc- 

3 2 - r 6 
25-r7 
21-rR 
1 P - r 9 


31-r3;21-r4;17-r5;ll-r6;R-r7;<r-rP;f-rf  ;4-rH';3*rll-rl2-rl4 
03" 


32-r4 ;25-t5; 1 7-r6; 1 4-r7; 11-rP 
L3  " 

2 2 - r r ; 1 7 - r f> ; 1 3 - r 7 ; 5 - r 1 3 ; n r t "I 


> ♦ r '■  ; 7 + r 1 0 ; 5- r 1 1 - r 1 2 ♦ r 1 4 - r 1 5 


2 5-rc.;  15-r6;  12-r7  ; 10-rP;P*r9;6-rl  1 ;nr.l  "03" 

32-»rP;22»r7;]9  + rP;17+r9;13  + rlG;12»rl];ll-*r]2+ri3;3f)*r]4-»rl5;nph  "L'3" 
25- r7;  17-rR;  15-r9;  12-rlO;  11  -rl  1 ; 10-rl2  ;9-rl  3-rl  4-r3  5; net-  - c 3 " 

21*rR ;]4-r9; 3 l-rl0;9-rll - r 12 ; R -r 1 4 -r  16 ;or h ”r3" 
lP-r9;13-rl0;9-rll;P-rl2-rl3;7-rl4-r35;arl  "1,3" 

25-rl0;16-rl]  ; 1 4-r  1 2 *r  1 3 ; 13  - r 1 4 ; 1 2- rl  6 ;nsP  "03" 

;23-r3 1 ; 12-r32; 10-rl 3; 3 l*rl4 ; 9-rl5;aFh  "r 3" 

; lf.-rl  2 ;9-rl  3 ; R-r  1 4 -r  1 5 ; a rl  "03" 

; 12-rl  3 ; 6-  rl  4 • 5-r  7 5; art  "r3" 

;P*rl  4 ;5*rl  5;orP  "03" 

; 6 - r 1 5 : n f P "03" 


3 -I 

1 0 0 *►  r 1 ;70*r2;Q*rl;6+r4 

; 4 - r 5 ; 

3 * r 6 

; ? 

♦ r 7 - 

rP  - rO 

; 1 

♦ 

rlO- 

0-r 

1 1 - r 1 2 - r 1 6 3 n 

0 

*r  1 ; 

PO- 

r2;19-r3;12-r4 

; fi  - r 5 ; 

5 - r 0 

; 3 

♦ r7  ; 

2 - r 1 o 

; 1 

♦ 

rl  2- 

r 1 3 

-rl4-rl5;nrP 

0 

♦r  2 ; 

72- 

r 3 ; 2 v ♦ r 4 ; 1 6 ♦ r 5 

3 fi  * r 6 ; 

7-r7 

; 6 

-rP  ; 

5 - r 9 ; 

1 - 

rl  1 ;r 

rP 

Hr  f li 

0 

*r  3; 

56  - 

rf  ; 20  ♦ r 5 ; 9-r 6 ; 

4 * r 1 0 - 

rl  1 ? 

2- 

r 1 2 ; 

nr  P ” 

1 V\ 

II 

0 

-r  4 ; 

53* 

r 5 ; 3 2 - r 6 ; R - r 7 ; 

3-r 10- 

rll  ; 

4 - 

rl  2; 

3-rl  1 

; ? 

rl  4- 

r 1 c 

• ort  "'V" 

0 

- r 5 ; 

6 3- 

r6;2P-r7; 14-rP 

; 1 2 ♦ r ° 

? 7-r 

10 

-r  1 2 

♦r!3* 

rl 

A 

-rl  r 

;P- 

r 1 1 ; n rl  "VV" 

r 

♦ rf> ; 

53- 

r7 ; 1 9-rO ; 1 3-r9 

; P - r 1 0 

-rl  1 

3 7 

- r 12 

;n  si 

"1 

\ 

i* 

0 

♦ r 7 ; 

4 S ♦ 

rP ; 20 ♦ r9 • 9«r 1 0 

♦rl  1 ;n 

r f #f 

VI 

0 

-r«  ; 

36- 

r9;R-rl2;nsh  " 

W" 

0 

*r  9 ; 

55* 

r 10 ; 20  - r 11  ; 17- 

r 1 2 ; 15 

-r  1 3 

; 1 3 * r 1 4 ; 1 2 * 

r 1 

C 

; c rP 

"V 

\ " 

c 

- r 1 0 

; 3P 

-rll ; 1 6-rl 2 ; 14 

- r 1 3 ; o 

rl  " 

v.v 

li 

p 

-rl  3 

; 30 

*rl2 ; 1 3-rl 3;  11 

* r 1 5 ; n 

rP  " 

1 V 

M 

0 

-r  12 

; 24 

- r 1 3 ; 1 0 - r 1 4 - r 1 5 ; a rP 

"V  v " 

G 

-rl  3 

; IP 

♦rl4 ;P*rl5;oph 

"V  v " 

0 

-r  14 

: 14 

-r!5;nrP 

(2)  Ballistic  2 


TRACK  0 MTU  13 


i t '■(' ; 1 oof  t 1 r i'  ; ! 


| f 1 r /: 

ri  t , ; 

< r r 

< 1 r"  • r or  2;  v t ' ■ , , 7 ; < r t .7 

; v*  t c 

f ! ]<  t 

< r f 

f U 7;rai  f ; wt  c , 2 ; a r ' , 

f » 

f f 1 n .1  ; 

V t r 

, 2 ; f r r i = 1 t <■  * 0 ; V 7 3/  ; 

r r y ! 

( t 

/ * " : f <r 

t ! , 

. ■ ; i .•  r ' 

f c r t = 1 

t< 

1. 

1 < r i - 1 
r f'X  t i 

t c 

^ ; r c.f.  ( ft  f l K | ,/  |'  ,t  1 ) - t ; i f 

} • r J 

if  £•  = ] 

f i 1 

- .1  r.  i i = 5 i t 1 - S ; C f n 3 , 3 , l 

; 1 

it  f 1 r • 1 

■ rt 

1 ley  ;cfn  ] ; ci  t C * 4 

if  fir] 

;v  tc 

2,2;  v,  r t 2 , 2 7 ; v- 1 c 2 , i ; r t ’ 

r.rr 

if  f 1 o 2 

e r < 

flri6;cfr  2;qtr  + 2~ 

r C o ( ; c 

fti  2: 

, ' ; v.  t c 2 , 2 ; w r t 2 , 3 1 ; v:  t c , , 

i ■ 

w t r 2' , ? 
nf-  x t r 

; v r t 

2 , t-1  ; v t c 2,0 

v t c 2,2 

; v<  r t 

2 , 2 , > ; v.  t o 2 , C 

r c t 

( \ ) * r t r < \ r ‘ ')*('•<'() 


if  fir'.  , r ( tlcfjfnt  ?fcl?;vlr  2,2;vrt  ?.?.,/■ r |l  , 1 / 1 rv  t 

if  f 1 n 1 (-rc  f 1 7 ; ] 3 •»  I ; r>  r f "/*)■" 

r i r / '.  [ J , i 2 ! ; r r t r ;•  [ 1 , 1 2 ) 

^ I * ‘ /■'  ! M i ,J  I > 

if  f ) < n ; o t r + * 

) 1 t]r/:  ,-r(  f 1 r;<  ; wf  c 2 , 2 ; v r l . 3 , A ( 1 , .j  | ; v t r , , < 

if  f 1 •'  <?  . r <•  f Jr7;12-f  ;rrl  ,7*'  " 

t r +3 

ll  f 1 n 4 irr  f 1 c;R  ; f r t ?. , r 1 ; v.t  c 2,2;vrf  2 . f , A f | 1 , J | ; t I r 

if  f 1 ci  4 err  f 1 f 7 ; 1 r;-»  I ; | " /'  -*  t • " 

r'r-.i  A ? [ ] ,vj  | ![  r t / $ l I , J I 


it-  C ('  i 


i r.  ( l i 2- 


r.  I FAY  : ;ort  "C'l  I I n 

,5)  ♦ Af  | 1,2)  ;i'~’  ;cry  T"  FI!  ' " 

C|  3,5WC|3,S]  jr  + t -t!  TTl'Ti  f " 

C | 3 ,5  I - Af  | f>  ,f  1 ;W  ;r  rt-  "H  HIT  " 

-r  I 2 ,5  | -A  Cf  r< , !?|  ;'■■■*'  ;f  eh  "Trinr" 

* s ( 2 , h i -a  n i ? , i p i 

if  flri/l  ere  f 1 nP  ; r p r 2 ; f m t 4,c1F;vtc  ?,?;wrt  2 , f 

if  find  ?rf  f 1 f7;  1 6*F  ;nFf  "A-*!"’" 

’ r r A <•  | 1 , U 1 ; r r t r r [ 1 , If  1 


I Tfv.]2":  I ■»  f ;n  rh  " f T PI  NT  " 


CWC|  1,21 


51  -A  e [ 3,  * 1 
51  + *r ! 5 ,0 1 
r I *A  ? f 7, 9 J 


?'  f M ,51  + A C I 1 , ?1  ; A-[  ;nrh  ,,r-  f If  r» 

! <■■  [ 4 , 5 1 +/v  c [ 3 , /!  1 ;r*»-;or1  "PTF  IUC  " 
r r [4 ,51  -Af  } 5 ,(>  | • W ;nrt  TT P P T" 

P;'l  3 ,r  | *A  C f 7, 9 | jf’fl  "flfl UC” 

I Cl  3 , 5 ] * A f | 10,121 

if  fin."  rrf  f ] n°  ; r r r 2 ; f n r 2,cl2;vtc  ? , 2 ; v r t ?.3,A5[],12|;vfc  2,0 
if  f 1 n 4 firP  f ]o7;  12+r;art  "a*!" 

(•'rr  A C 1 1 , 1 2 I ;n  t A?  |1,  12) 
ret 


"T2"  : 

t'  + 1 ♦!  ; f or  t - 1 t r 7 ; r r.'C  [I:  , 6 ] +C  | N , fi  ] * C [ N , R | ; r r x t h 
re  t 


"I.?”: 

Ml-»l’;fc,r  W*1  »r  Z ; r f.C  | r , 1 0 ) +C  (N , ] 2 | *C  [N,  12  ) ; rrxt  N 

pt 


\ \ " : 

Cl  I ,2 ] *r | 1 1 ;CI 1 ,5) -r| 21 ; 1 + T-  I ;qrt  "P-P” 

fer  f.  = 1 t<  Z ;Xr  f+C  [f  , 1 3|  -»C  ( N , 1 3]  ;YrN+C(N,l  4 ]-*C[M,1  4 ] ;nox  t f. 
re  t 


nor  [r.,61  -C[r.,ni 

]P0*r1 ;53-r2;77-r3;25-r4;2n-r5; 1 3-rf ;10+r7 ;"-rP ; 7* r « ; 5*r 1 P-r 1 1 -rl3-rl 
4 -»r  1 2 ; 5 + r 1 5 ; 0*F  je  p.h  “T?" 

0-*rl;37-»r2;37*rl;3P*r^;24->r5;lo*rf';14-*r7;10*r8;c'*ro;P*rl0 
6-rll -rl?*rJ  3*rl 4*r3  CjnFh  "T?" 

f'*r2;2F*r3;?5*r4;lO*r5;24-»rfj2O-«'r7;]7»rB;]4*rc);l?*rl0;1P*rl]*r12-*r]3^ 
1 P*r  1 5 ;ost  "3  3" 


F7  : 0-r  3 ; lP*r4  ; lR-rr-rf. ; 1 F*r7  ; 1 5-rB;  1 3-»r9;  10-rl  P ;B-»rl2 
BR:  9-r 1 1 *rl3*r1 4-rl 5;n rt  "T2" 

f4  9 : 0-»r4;B*r5;  J4*rf-r7;  13-r8;  1 2->r9  • 10 *r  10  ; fl *r  11 -t  1 3* r 1 4*r  1 5;orh  "32" 

90:  0-r5;  ]2*rf  ; 19*r7;  20-rR;  10*r9;  1 7-rlO;  15*rl1  : 14-*rl2;  ]F-r  13-rl4 -rl  5;oph 
91:  P-rf ;7-r7; 12*r3 ; 15*r5; 1 4*r 1 0 ; 1 3* r 1 1 -r 1 2 ; 12*r 1 3*r 1 4* r 1 5jq ?t  "T 2" 

92:  P-»r7;4-r«  ;r*r9;  10*rlC;  12+rll;  ]]-rJ2;  13*rl3*rl4*rt5;nF»-'  K3  2" 

93:  ( -*rR;3'*r9;fi*rl(.';lP  + rll*rl2;ll*rl3-*rl4-»rl5;orh  "T2 " 

94:  0 -*r  9 ; t * r 1 0 ; 1 2 *r  1 1;  1 0 * r 1 2jl  0 ♦ rl3-»rl4*rl5:  osl~  "T2" 


117: 

1 PO-r 1 ; 

9P  - r 2 ; 

2 0 * r 3 ; 

18- 

r4;  1 

Ilf  : 

2 

- r 1 1 - r 1 3 * r 1 4 

;nr t " 

V l " 

1 1 <»: 

0 

-rl  ; 90 

-r?; 33 

* r 3 j 2 3 

-r  4 

• ] f>- 

120: 

4 

-rl  P-r 

11  -r  12 

* r 1 3- r 

34; 

o r.h 

121: 

n 

- r 2 ; 3P 

-t3  ; 30 

- r 4 ; 3 1 

-rc. 

; 2 2- 

122: 

5 

-r 13-r 

1 4 - r 1 r. 

;nrf  " 

1 v " 

12  3: 

0 

- r 3 ; 20 

+ r*  ;27 

-rR; 20 

-rf> 

; 1 r>- 

124: 

( 

»r4  ; 1 1 

♦ r5 ; 19 

- r 6 ; 16 

-r  7 

; 1 3- 

1 2 c> : 

(' 

* r *3  ; 10 

* r 6 ; 2 7 

-r7 ;24 

-rP 

s 23  - 

126: 

a 

El  "\A. 

»• 

127  : 

0 

- r <> ; 1 1 

*r7  : IP 

-rfi ; 20 

*r  9 

; 1 3- 

128: 

0 

-r7 ; P ♦ 

r!i  ; 1 2- 

r9 ; 14- 

r 10 

; 1 2 - 

1 2 9 : 

0 

♦ rO  ; 6 - 

r '•* ; 1 3 - 

r 1 0 ; 11 

- r 1 1 ; R - 

130: 

o 

-c'-;  11 

* r 1 0 • 1 8 - r 1 1 ; 

1 5- 

r 12 ; 

131: 

0 

- r 1 0 j 8 

- r 1 1 ; 1 0 - r 1 2 ; 

1 1- 

rl  3* 

13  2: 

o 

- r ] L ; (> 

* r i 2 ; 9 

- t 1 3-r 

14- 

r 1 9 ; 

133: 

0 

-rl2;  5 

-rl  3 ; 6 

*r!4;8 

-rl 

ri;nf 

1 34  : 

0 

- r 1 3 ; 5 

♦ r 1 4 ; f • 

- r 1 r;  ; n 

sh 

"1  l " 

13  9; 

<■ 

♦ r 1 4 ; 4 

-r  1 5 ;gs)  '*  v»  V 

M 

',(■+  r<'  ; 3-r  1 r. 


rr,;]0-*rf*;7*rl];f'+rl3*r]^;^-*r]e;nrf 

11  :4  -r  1 4 • c'-r1  9 -nrt  ’MV" 


O fl  \ " 
'[  t " 

'.!  "I  \ " 


next  N 

. : osl  "FOOT" 

3 : ?rc  c 

3:  if  P$  | 1 00  , 1 00  | = "t  " ; t r V-  A ; 1 r'  f l1-,  “ — — 

!:  r ir  'I  [4  | -,"////// //"  ,\  31 

>s  fi.llM0*(7.5H0,]]/(237.3+Fl0,l  ])  )*V 
> : if  f [0,4 1 <F  5P;rtc  +1 

if  F [ 0 , 4 ] < 1P(.  0 c-r/1  H C , 4 | > = P 50  ; " f'"*C$  I 6 ,6  1 jot  c.  412 
!:  il  1-  |(  ,4]  >=100r;”N///r  »H  ;rto  +lf» 

>:  H(',l  1 4. 0 7 ( f 50-1-  | 0,4  ) ) 4-27  3. 10*1  (2) 

»:  'I  | 2 | ( 14. 1 51212V/P50)  vi  [4  | 

: 6.1 1*10 '(7.5 (T  [ 21-27  3.  ](.)/(  2 37. 34-1  (2) -27  3 . If.)  ) -V 
I l 2 J 4 ( .07)  1 56  vi  ( l | 

I:  T[.ll  ( 14. 15121  2 V/ 10  CO)  vi  | 3] 

- : lOw‘1  ( P$  110,21  ] ) - 3 3. 721  (1  1 4 J 4 F [0,3])  *1  co ( 0 50/f  | 0 ,4  ] ) -’  ;ori  "M  F1NC" 
j:  1 $[3,5 | -C $[6,6] 

, : ' -33.721  (T  [ 3)  4'|  [4  ) ) *loo  ( 1 0 00/8  50)-!’:  ;qsf  "STFINO  " 

I:  if  : <0;r-4500-r  ;str  (f  )*0$  [ 10 , 13  1 ;C$  [ 1 1 ,13]  -C?  [ 10, 1 2]  ;ctc  40 
<:  if  f>0;r.r,l  "PI  UliO"  ; Ti  $ | 3,5]  -(  $ [10,1  2 ] ; q t c 4f 
! : f | 0 , 1 ] 4 . 07  ( 1000-F [ 0 , 4 ] ) 4 27  3 . 16-1  | 1 ] 

•:  1|1|  ( 14 . 1 51212V/1 POO ) -T [ 3] 

: 10vol(F$[lS,21  1 )-33.721(T ' [ 3] +F | 0 , 3] ) *1 rn ( ] 000/F 1 0 , 4 ] ) -7  ;n  fV  "SI  I INC" 
::  if  r <P;r-4-50PV;rtr  (f)-<-$[lP,131;C$[l]  ,13]-C?[]P,12]  ;oto  4? 

I:  r?[3,51*n$|ic,l2] 

: t r V 0 ; r cf  c) , r P ,rs  ,CS , 1$,  N$  ,r ? ,r? 

■:  t r F 0 ; 1 r 14 


( 3 ) AWS  Output  First  Transmission 


TRACK  0 FILE  14 


C : 

fl 

im 

t $ ! 20  ] , 

1 V 

115)  , 

cm 

1 : 

d 

ir 

P S [ 102) 

,c 

$ 1 1 f- 1 

,0$( 

/ : 

d 

ir; 

11 

-2:43 

,1 

: 6] 

3: 

d 

in 

t 

-1:60 

,1 

: 01  , y 

12) 

4 : 

o 

ir 

r 

7,45) 

,C 

i 1 16) 

r • 

d 

ir 

\ ? 

! 4 0 ) , 

7? 

|1H, 

A [ f,  1 

6 : 

d 

i m 

i 

IS1  ,r 

$(101 

7 : 

d 

iir 

H* 

(2,32 

1 ; 

t irre 

500 

B : 

c 

f a 

4j 

if  ic 

r.  2 

; r,  f a 

4 

'j  : 

1 0 
1 1 
12 
1 3 
14 
1 5 
] C 


Ffn  "Uf'AF  ATS  VF  5S AOF”  ;o  rF  "IMP" 

t r F Cjldf  9,p£.,rf.,i;S,i,$,N$,rS,rs 
t r k 0 ; 3 d f 1 n , h | * j , V | * 1 
t r k 0 ; 1 ri f 11  ,K[*) 
if  p $ 1 1 0 ] , 1 n 1 1 = " Y " ; F f n 7;cfo  f 
if  P?lin  ,101  ]="N";cfn  7 ; S f n f 
" 3 9 )4&80:;3  ??  0 !/-2  ' 71.  ( " -!'$[]] 

" 'J  O I IMP  I.rri  PtTVrZDP.SYFXALJ  LCK.  "-l>$(2] 


17: 

cl  a i 

(0)  -11$  1 1 , 

1 , 

U ;ch 

ar  (10)  -H $ 1 1 ,9 

,fJ 

18  : 

char 

(13) -H$  I 1 

,3 

, 31 

15: 

art. 

" ir.'j  iit" 

20  : 

qtc 

+ 125 

21  : 

"LFi 

" :(  cor  ; v-a 

i t 

150; 

fee  r ;</a  i f 

150 

;(• 

22  : 

" lNTl,rJ"  :f  or  I. 

t c Y 

TTT7TTTT 

i ,3)10 

23: 

f or 

K=N  to  Y | 1 ) 

;if  I- 

1 N , 3 ] = 0 ; r ( X t 

K 

24: 

(UK 

,5)  -MN,5 

1 ) / ( F [ K 

,51 -F |N-1 

,51  ) 

*c 

25: 

T 1 K , 

1}-C(K(F  , 

1 ) 

--F  1 M- 

1,1 |)*F(N 

,11 

26  : 

V 1 K , 

2 ) -C  ( F ( K , 

2] 

-F  [N- 

1 , 2 1 ) - F [ N 

,2  ) 

27  : 

t (K  , 

3 J -C  ( r I K , 

3] 

-F  IN- 

1 ,31 )-F(N 

,3  ) 

21  : 

F | K , 

f 1 -('(Of  K , 

( ) 

— K [N- 

1,6]  )-F  IN 

,61 

29: 

rrx  t 

N 

30  : 

t 

31: 

"A  -r  " :f n + t , 7 ; r a r 0 

32: 

for  a = 1 tc  r 1 4 

33: 

for  ' =1  to  2 ; r cs  ( M ? [ K ] , C $ [ C , C ! ) -J ; 

if  7 ; r f o !'  ;ntr.  +2 

34  : 

next  K 

3$: 

if  J = 1 rr  J = 3 or  >7-5  or  J*9;cfo  1 , 

2 , 5 , 6 ; n t r + 5 

36: 

if  f 1 n 1 err  fla5;cfn  l;o+o  +4 

37: 

if  flql;wtc  2, 2;vrt  2,27;v/tc  2 , 0 ; •> 

fo  5jrfn  l,6jntc  +3 

3R: 

if  flo2  and  f 1 oi r>  ;ofn  2;rto  +2 

3° : 

cfo  6 ; cf n 2,5;wtc  2,2;vrt  2,31; wfo 

2,0 

40: 

wtc  2 , 2 ; w r t 2,J-i;wtc  2,0 

4 1 : 

next  C 

42: 

re  t 

4 3: 

"FOOT":  if  flo4  arc’  flo7;rar  t.'jfrf 

2,t,7;vtc  2,2;wrt  2.2,15;v.’tc  2,0 

44  : 

f IT  t 2 , 7.  , c 1 

45: 

if  f 1 o 4 and  llo8;rar  2;wtc  2,2;wrt 

2. 2, char (59) ;wtc  2,0 

46  : 

dsp  " ; " ; p r t 

47  : 

10*C  1 11 

48: 

re  t 

1 

4 <>•  " DLLf-Tr."  ;cfn  3;dc;r  "f  rr.FACL  L*  1 INC  01  I M 1 1 " : v,  i t 1001  ;r  , 


AFP  AY 


£t 
n E 
A $ 


A?  ( 1 ,01  *C$  I 2,f  1 ;rjh  "AFTAY  6” 
r1  st  A$  1 1 ,5) ;rr  t Af  |1  ,01 

ro  t 


" A FT  AV  f, 

i f CO  [ 1 ,0  I ="  " ; rot 

C|  1|  +1-CI1]  ;if  C|  11  OOyqto  +7 

if  f 3 o 4 rrr1  flnP;r?r  2;firt  4,z,F-wto  ?,2;wrt  ? . 4 , ] 4 ] , lPyvf  c 2,0 

if  flo4  c vr>  f]r7;frt  4,l,z;rclr  0;w  fr  2,?;wrt  2.4,2,fl;wtc  2,0 
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if  f 1 <■•  4 rrr  floP-jper  2;fn>t  4,7,c0;wtc  2,2;wrt  2 . 4 ,C$  [ 1 ,<•  | ; w tc  2,0 

if  f 1 n4  rrr’  f 1 n7  ; f -*■  r 1 4 ;o  pf  "A*/" 
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2 3 7:  if  V <(.('  ; n t o +2.1 

2 3f  : 10  00/ (f-  1 1 ,C.  ) -f  I 1 , C — 1 | ) - r 1 3 ; 1 000/ (F  (1  ,C+1  ] -f  [ 1 ,Cj  ) - r 1 2 

2 35:  «■  i r(V-f  | 3 ,C-1  1 ) r 1 3*r  1 3 ; ahr  ( V-r  | 3 ,C+ 1 ] ) r 12-  rl  2 

240  : fr  r L=1  to00;if  F [I, , f»  | < =f  [ 1 ,C  ] ard  P | L,+  1 ,6  ] >r:  [ 1 ,C  1 ;n  to  + 2 
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281 : (F[r  ,6] -F [E[l]  ,6] ) / ( F [B [ 2] ,6 ] -F [R ( 1]  ,6] )-C 
262:  F [M,1]-F[P[1],1]-C(F[B[21,1)-F[B[1] ,1] ) -A 
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260  : if  abe  (A  ) > 2 and  F[F,4]<300  and  abe  (A  ) >P  ( 4 ] ; F-R  [ 31  ; at  f (A ) -P  [ 4 ) 
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286  : if  E ( 3 1 >B  [ 1 1 and  [ { 3]  <B  [ 2 1 ;B  [ 3 ] *P  [ 2 j.;q  to  -9 
269:  0*P ( 3J *A; if  E [ 1] >P [ 12 ] ;q to  +8 
290:  for  !-  =F  (H+l  to  B 1 2 ] 

251:  (F|b,6]-F[F[11  ,61 )/(F(B[ 2],6) -F[B [11,6]) -C 
292:  F ( r , 2 ] - 1 ( B ( 1 J , 2 1 -C ( F IB  [ 2 ] , 2 1 -F  [ B ( 1 ) ,2]) -A 
253:  if  pr nd ( F ( f , 2 ] , 0 ) =pr nd ( F (B [ 9 ] , 2 ] ,0)  ; F -B  [ 2 ) ; q tc  +4 
294:  if  prnd (F (F ,2] , 0) *prnd (F (B [ 1 0 ] ,2 ] ,0) ;F-B [ 21 ;qto  +3 
2S5 : if  aFs(A)>10  and  F(P,2] >20 ;F*B (2) ;qto  +2 


296:  next  F 
297:  R ( 2 ] ♦ F 

293:  if  F [F , 4 J <100 ;q  to  +13 

299:  "////////// "♦A$[l, 10] ;if  D>5;l-D 


301 : etr  (prnd (C 11 ,0 ) ) -A$  | ] , 3) » A? I 2 , 3 | -A  $ [ 1 , 2 ] ; " /"-A? I 3, 3 ) 

301:  if  D = 0;"0P"-A$|1  ,2] 

302:  pr  ncl  ( F IF  ,4  ) , U)  *C 
303:  osb  "STPINC" 

304  : qsb  '"1  EM-  " 

305:  qr,t.  "PP" 

300:  1+D-D 

307:  qsb  "APPAY  10" 

308:  if  F=Y [ 1 ] ;otc  +3 
309:  F-*F[l];rsb  "POUND" 

310:  otc  -31 

311:  esb  "t-GOT" 

Tl  2 : epc  1;"  PPBP"-A$|  1 ,5]  ;orb  "SOP  |i  TAT  11 

313:  "0"-A$  f 10  .10  1 ;ost  " APPA Y 15" 

314  : "01020 30406 0 7080 912 14 16 2025303 5 5070 "♦ V ?[  1 ,34 ] 

315:  in t (val (P? [ 19,21) ) *.0  328  1 + 1)  - r 10 

316:  i n t ( ( F [ Y [ 1 ) ,6]/10+val  ( P$ ( 1 9 ,2 1 1 ) ) * . 0328 1 ) -r9 

317:  if  I [Y| 1 ] ,4] >100;ntO  +2 

318  : int ( (val (Z$[ 6,8] ) +val (P$[ 19,21 ]) +1000) *.03281) -r9 
319:  for  N=45  to  1 ty  -l;if  F f 2 , N ] = 0 an’  N [ 3 ,K  ) =0  • rex  t N 
3 20  : if  int(f[l,Nl*. 003281) <r°; in t (N [ 1 ,N] * . 00 328 1 ) -r9 
321 : " 90  0//"* I $ 1 1 ,5] ;2-D 

322  : " " ♦ F $ [ 1 ,15) ; Z $ [ 1 , 5 1 ♦ F $ f 1,5] 

32  3:  for  V>0  to  16 
32  4:  va  1 ( Vv $ [ w 2+ 1 ,V-  2+  2 ] ) * C 
3 25:  if  r 10  >0;  next  W 
326:  if  C>r9;ato  +13 
327:  0*304. 8-( 

328:  osb  "ANCLES" 

329:  if  D= 1 ; " 9/ ///"♦ 15(1,5) ; " "-F?[l,15] 

330:  if  D = l;Vv$[Vs2+l  ,W  2+2 ) ♦ I $ | 2 , 3)  ;A$)  11  ,15)  *F$[  1 ,5) 

331:  if  L'  = 2;K$|l%2+2>2+2  ) * I ? ( 4 ,4  ] ;A$  [ 11  ,15] -f  $(6, 10  ] 

3 32  : if  D = 3;l$  [ V2+2,V.2  + 2] -I$[  b ,5]  ;A$|13  ,15] -F$  [ 11  ,1  5] 

3 33:  if  b#3  and  W$  [ W2+1  ,W2+1  ] $ [W2+  3 ,W  2+  3]  ; D+l -Djnex  t V. 

334;  s tr  (r  9)  *F  $;  j f.  r9>  = 10  and  F$  [ 2 , 2 ) =K$  [ VC2+1  ,Vi  2+ 1 ) ; D+l*  D;nex  t \ 
3 35:  if  r9<10  and  Vi$  | V-2+ 1 ,Vi  2 + 1 ] ="  0 " ; P+  1-*D;  nex  t V 

336  : I$[1,5)*A$[1  ,5]  ;nr.b  "APPAY  5" 

337  : P$[1,15)*A$(1  ,15]  ;osb  "ARRAY  15" 

339  ; l-»D;next  V 

3 39;  r9*  304  . e*C  ;qrt  "AHGI  F.C" 


340  : if  r')«val  (V;$  [ V7  2 — 1 ,W2  ] ) and  r=l?qto  +10 

34  1;  if  r9*val  (W$  [V  2-1  ,V)2  ] ) and  nfl;oto  +7 

3 4 2:  str  <r  9)  *E$;  if  r9<10  ;B$  f 2,2]  *P5  [ 3 , 3)  ; T"*P$  | 2 ,2] 

34  3 : if  V S[W2-1  A'2-l]fr$(  2,2]  ; ]*D 

344;  if  n»l;"9////"*I$[l,5] ;"  "*F$|1,15) 

345;  if  C*1;P5I2,31+I$[2,3] ; A$ [ 1 1 ,15]*F$J1,5) 

34  0 : if  D*2;8$[  3,3]-*I$[4,4]  ;A5[11 ,15]-*F$[6,10) 

347:  if  D«3»P$| 3,3) -I$[5,5] ;A$[11  ,15]-F$[11  ,15] 

348  : 1 $(1,5]+A.S[1  ,5]  ;asb  "APPAY  5" 

349:  F$|1,15]-A$[],15J ;qsb  "APPAY  15" 
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350 : nr  I'  "[•GOT" 

T 5U  if  l | Y 1 1 1 ,4  1 <■]  00  • trk  TTjlMf  If. 

352:  if  flo4;wtc  2,2;for  N = 1 tr  75;vtb  2,0; next  N;\tc 
3 53:  tri  Cjlrif  lc. 

3r'  4 : rnr' 
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(5)  AWS  Output  Second  Transmission. 


TRACK  0 FILE  16 

0:  oso  "USAF  AV'S  ITFfACF  " 

] : < 1 1-  r -t  1 1 3 

2:  "A*R":fmt  h,?;ror  0 
3 : for  0=1  tc  r 14 

4:  for  K = 1 to  2 ; r os  (H? f K | , C$ [Q , O I ) ; if  J;sfq  F;ntc  +2 
5:  npy t K 

6:  if  J = 1 c.r  J = 3 or  J = 5 or  J = 9;rfo  l,2,5,6;gtc  + 5 
7:  if  fin]  and  fln5;cfq  l;ntc  t4 

8:  if  fln];v.’tc  2,2;wrt  2,27  ;wtc  2,0;  s f n 5;cfn  1 ,f.  ;nto  +3 

9:  if  f]n2  end  fln6;cfn  2;oto  +2 

10:  sfn  6;cfq  2,5;wtc  2,2;wrt  2,31;wtc  2,0 

11:  wtc  2,?;wrt  2 , J - 1 ; w t c 2,0 

12:  rrxt  C 

13:  rot 

14 : " rOOT" : if  find  and  flo7;rar  fcjfmt  2,b,z;wtc  2,2;vrt  2 . 2 , 1 5; wtc  2,0 
15:  frt  2,7,cl 

16:  if  find  and  f}oR;rar  2;wtc  2,2;wrt  2. 2, char (59) ;vtc  2,0 
17:  drr  ;crt 
If:  lO-C(l) 

1 9 : r r t 

20:  uPFLrTrH  :rf  n 3;drr  "fTGSACr  PFIMC  nriETEC"  ;wa  i t 1000;ret 
21:  " AFP AY  IS": 

22:  " "»CS[1,6] 

2 3:  A$|l  ,5)  *C$  12,6)  josb  "ARRAY  6" 

24:  A$(6,10)*C$(2,6J ;qsb  "ARRAY  6" 

2S : A$  1 11 ,15] -C$ | 2,6) ;asfc  "ARRAY  0" 

26:  drr  A$|l,15];rrt  A$[l,15] 

2 7:  ret 

28:  "ARRAY  10":  

29:  " "-C$( 1,6] 

30:  A $ 1 1 , 5 ) *C  0 | 2 , 6 ] ; o eb  "ARRAY  6" 

31:  AR  1 6,10) ♦C$) 2,C]  ;osb  "ARRAY  6" 

32:  dec  A$  [ 1 ,10 ) ;cr t A$ [ 1 ,1 C) 

33:  ret 

34:  "ARPAY  5": 

35:  " "*C$|1,0 

36:  A$ 1 1 ,5) ♦C? ( 2,6] josh  "ARRAY  6" 

37:  drp  A?[l,5]  ;r-r  t A$[l,5] 

38;  ret  

3^:  " a ppa Y 6": 

40:  if  C0|1  ,61 «"  " ;rrt 

41:  Cll )+l«C(l] ;if  C[l]<10;qtc  +P 

42:  ror  2 

43:  if  find  end  flaR;frrt  4,z,b;wtc  ?,?;wrt  2. 4 , 1 4 1 ,1 0 ; wt  c 2,0 
d4:  if  f 1 n4  end  fln7;frt  4,b,Z;per  0;wtc  2, 2;wrt  2 . 4 , 2 , R ; wtc  2,0 
45:  0-C|l]  ;C$  [ 2 ,6  ] *C$  1 1 ,5  1 
46:  if  find  erd  f ln7 ; 5^r 14 ;q ph  "A+R" 

47:  if  f 1 n4  end  floR-par  2;firt  4,z,c5;wtc  2,2;wrt  2. 4 ,C$ [1  , 5) ; wtc  2,0 
48 : nto  +3 


49:  if  find  erd  f]q8;r-or  2;fmt  4,z,c6;wtc  2,2;wrt  2 . 4 ,C  $ ( 1 , 6 ) ; wt  c 2,0 
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50:  if  flo4  and  f ] o7  ; 6*r  1 4 ;o rb  "A*  P" 

51:  " "*C$[1,6) 

52:  rot . 

5 3;  " f'TM  NOfc  • i f 0^1 0 00  and  C>  09  ; r,  t r (0 ) *A  5 [ 3 ,6  ) ; A $ ( 4 ,6  ) *A$  [ 3,5) 

54:  if  O<100  and  P>9 ; r t r (C  ) -A  $ ( 3 ,5  1 ; " 0"*A  $ | 3 , 3) 

5 5 : r o t 

56:  "TFf-p"  Tnrnd  (F  [F,l]  , -1 ) *T ; f r c (T ) -C 

57:  if  mn|l)=l  cr  Fnn(l)=0;if  C=.l  or  (.=.3  cr  C=.5  c-r  C-.7  cr  C=.9;T-.1*7 

58:  if  rrn  (3  ) = -l ; i f (=.2  cr  (,'=.4  or  C'=.6  or  ('  = .8  or  r — C ; T — . 1-^*1 

55  : at  : (T)  *T 

60:  " u00"*A$  10,8)  ; s t r (10T)*C$ 

61:  if  T > 0 onr]  T<  1 ; C$  ( 2 ,2  ] *A$  (8 ,8  ) 

62:  if  3>.y  and  T<10;C$| 2, 3) *A$ [ 7,8] 

6 J : if  'I>9.9;C$|2,4]*A$[6,8) 

6 4:  ret  

05:  "OP": if  pr nd ( F [ I , 1 1 , - 1 ) <-40; " //"*A$ ( 9 , 10 ) ; re t 
66:  il  F|F,2] *0;2*1  [F, 2) 

67:  (HF,2]/10  0)6.11tn'>(7.5F  | K , 1 | / ( 2 37 . 3+F  [ F ,1 1 ) ) *F 
6 8 : (237.31co(E)-186.527)/(8.2B6-log(E) )*E 
69:  prnd(F(F,l| -r,-l)*F 
70:  "00"*A$ (9,10  ) 

71:  if  E>0  ord  E<  1 ; st  r (or  nd  ( 10E , 0)  ) *C$ ; C$  ( 2 , 2 ) * A?  [ 1 0 , 10  ) 

72:  if  F>  . 9 and  F<  5;  r tr  (pr  nd  ( 10F,  0)  ) *C$ ; C$  [ 2 , 31  -A?  f 9 , 10  ) 

73:  if  E>4.9;r.tr  (p  rnd  ( 50+F  , 0)  ) *C$;C$f  2 , 3)  *A$[  9,10  ) 

74 ; re  t 

75:  "AFC.LI.P"  :f  or  Tl  = 2 to  44;if  O >M  f 1 ,N  1 ;~nex  t N 

76:  if  f’  ( 3 ,N  ] =0  and  m [ 2 , N 1 =0;  " " * A $ ( } 1 ,15)  ; re  ♦ 

77:  A'f  1 ,N-2)  *r)  ,*^{1  ,N  J-r2;ff  3,N-1  )*r3;M|  3,NJ  *r4;P(  2,N-1  )*r6;r'|  2,N  l*r6 

78:  r 4-( ( r2-C) /(r2-rl ) ) (r 4-r  3 ) *f 

79:  if  r 5-r6  >=  IP 0 ; r 6 + 3 60-* r 6 

80:  if  r 6- r5 >- IP 0 ; r 5+  360* r 5 

81:  r6-(r2-f)(r6-r5)/(r2-rl)*A 

82:  if  S<0;A+180*A;abs(S)*£ 

8 3:  if  A > = 360  ; A - 36  0*  A 
84;  if  A<0»A+360*A 

85:  prnd (A/5 ,0 ) *5*A;prnd ( S , 0 ) *S;S+100A*A 
86:  str  (A  ) *C$  ;C$  { 2 ,6 ) * A$  ( 11  ,15) 

07:  if  A < 1 0 0 00 ; " 0 " * A$ 1 1 1 ,11)  ;C$(2,5)*A$[12,15) 

88:  if  A<]000;"00"*A$(11,]2J;C$[2,4)*A$|13,15) 

89:  if  A < 10  0 ; " 0 0 0 " * A$ [11  ,13) ;C$[2,3]*A$(14,15] 


90  : 
91 : 
92  : 

if  A<10; "00  00"*A$ { 11 ,14  J ;C$[2,2)*A$ [15,15] 
if  A=0; " 000" *A$ [ 1 1 ,13] 
re  t 

93:  "HEIGHT  & TEl'iP  6 L'EV;  POINT  DEPRESSION": 

94:  pr nd  ( F [F,6]+va]  (P$[19,2]))*10,0)*0 

95:  str  (C) *C$ ;C$ [ 3 ,5 | * A$ [ 3 ,5 | 

96:  n SL  "TFNP " 

97:  opt.  "DP" 

98:  prnd ( F [F ,6 ) +val  ( P$ () 9 , 2 1 ]) * 10 , 0 ) *o 

99:  qsh  " ANGI.FS" 
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100:  ret 

101:  " r -p"  : /('xx+YV) -p  = ' 

102:  atr  ( Y/  ( X+le-90*  (X=0)  ) )+2*son  ( Y ) *atn  ( lr99) * (X<0  ) *A 
10  3:  if  A.<0;  36  0+A-A 
1 04 : re t 

105:  "P-T " : P*rcr ( A) -X ; R*r in ( A) *Y 
106;  ret 

107:  "r,nr-Ht;Ar.'" : " "♦as[6,1M 

1 OR  : val  (D$|l  ,21)*Z;str  (n  r nd  ( Z + 50 , 0)  )*AS(fi,fi] 

109:  ASf7,Rl-A$(6,71  • 

110:  str  (rrnd (val  (D$ (4 ,7] ) .01  ,0) ) -A$ [8,10 1 ;A$|9,]0 ) *A$ |P ,91 
111:  if  val(A$[P,9] ) < 1 0 ; AS [ fl , P J ♦AS (9,9) C"*A$(P,P1 
112:  C S [ 1 , 5 1 ♦ A $ 1 11  ,15] 

113:  ret 

i 1 4 : "70  50  302010070  50  30 20 1000 00 000000 000 000 00 0 "♦ V $ 

115:  npc  2;"  TTCC"*A$  | 1 ,5  1 ;o sb  "PlirUFAD" 

116:  for  N=45  to  1 ty  — 1 ; i f M ( 2 , N 1 = 0 and  f* [ 3 ,N J =0 ; nex t N 
117:  r-  ( 1 ,N]  *P  f 51 

IIP:  for  N = 2 to  Y(l);if  F [ N ,6 1 <T [ 5 J ; nex t N 
119:  for  Vv  = 4 to  0 by  -1 

120:  if  F [ h - 1 , 4 ) <*vcil  (W$  [ h 2+1  ,K2+2  J ) ; (*  $ ( W2+ 1 ,w  2+ 1 ] ♦ A$  ( ] 0 , 10  ] ;a  to  +2 

121:  nex  t k 

122:  osfc  "ARFAY  15" 

12  3:  "///////////////"*  A$  — — — 

124:  0*F  ;osb  " HEIGHT  f.  TEF'P  «,  DEfc  POINT  DEPPFSSION" 

125:  0-V, 

126:  for  F=1  to  Y ( 1 ) 

127:  val  (V32+1  ,W2+2))-P 
120:  "/////////////// "*A$ 

129:  if  P<F[F,41  ard  P#F[F,4);qto  +6 

130:  if  P = F(-1,31  cr  F=F[-1,4]  or  P*F[-lf5]  or  P=F  ( -1  ,61  ;oto  +2 
131:  osb  "HFICHT  & TF'f'P  & DEW  POINT  DEPRESSION" 

132:  W$(W2+1,V2+2]*A$|1,21 
133:  ocb  "APPAv  15" 

134:  if  Pfl;K+l*V 

135:  next  F 

136:  if  A [ 1 1 “0 ; n to  +7 

137:  str  (A[l)  ) -C$ ; C$  | 2 ,6 1 * A$  [ 1 ,5 ) ;str  (M  3) ) ♦C$;C$  ( 2 ,6 ] *A$ [ 11 , 151 
138  : str  ( A ( 2 J )*C$ 

139:  if  A(21>=1000;C$[2,6)*A$[6,10J 

140:  if  A(2!<]P00;C$(2,4J-A$[6,fi) ; ” //"♦ A $ f 9 , 10 J 

141:  ash  "APRAY  15" 

142:  oto  +2 

143:  "08999"»A$:osfc  "ARRAY  5" 

1 4 4 : if  A|4]«0;qtc  +7 

145:  str  ( A ( 4 1 ) *CS;C$[2,61*A$[1 ,5]  ;Str (A (51  ) *C$ ; CS [ 2 , 6 1 ♦ A $ [ 6 ,10] 

146:  ctr  (A (6] ) *C$ 

147:  if  A(6) <1000;C$12,41*A$111,13);"//"*A$(14,151 
148:  if  A(61 >-1000;C$|2,61*A$(ll ,151 
149:  nsb  "ARFAY  15" 
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150:  q to  + 2 

151:  " 77999"-*A$  ;oph  "APPAY  5" 

152:  gst  "FOOT" 

153:  crc  1;"  T1  DO"  * A ? [ 1 , 5 ] ;q  ph  "SUPIIPAD" 

154;  "/"-A? 110, 10]  ;qsh  "APRAY  15" 

155:  0 -»v< ; 1 -»  L 
1 56 : oto  +5 


lr-:  Q+V  [ 1 1 *F;f  sh  " BOUND" 


166:  0+  P [ 3 1 *A ♦ f | 4 ] 


16  7:  for  N=R  [ 1 ] +1  to  P (2  ) 


2 

2 


16P  : ( F ( f , 6 ] -F  ( P 1 1 ] ,6  1 ) / ( F [P  | 2 ] , 6 ] -F  [ P [ 1 1 , 6]  ) ♦(! 

169:  F[r,ll-F|P[l]  ,1]-C(F(P[?M]-F(rri]  , 1 J ) -A 
170:  if  rr  nd  ( F [ N,  1 1 , -1 ) =or  pd  (F  [ 7 1 , -1 ) ;N -»P  [ 2]  ;o  to  +4 
171:  if  rr  pd(  F | V,  1 ) , -1 ) =r-r  nd  (P  f P ] , — 1 ) ; n -*P  [ 2 1 ;q  t c +3 
172:  if  ahs(A)>2  and  oh  r (A  ) >P.  ( 4 ) ; r-»T  ( 3 1 ; at  s (A  ) *F  (4  1 
173:  nex t r 

174:  if  H f 3 1 >B ( 1 1 rod  R | 3 1 <P f 2 ) ;B f 3 ) -r [ 2 1 ;qto  -8 
175:  0 ♦p  [ 3 ) +A ; i f t 1 1)  >P  [ 12  ] ;qtO  +B 
176:  for  N*B[1)+1  tc  P[2] 

177:  ( F [ N , 6 ] -F  [ P ( 1 ] , 6 ] ) / ( p [ P [ 2 ] , 6 1 -F  [ B [ 1 ) , 6 ] ) -*C 
178:  F IF  ,2)-F[P[l],2) -C(t  { B | 2 J ,2]-F|P[l]  ,2] ) ♦A 
179:  if  prnd  f F ( f,  2 j , 0) =pr rd (B ( 9 ] , C ) ; f"+E  ( 2]  ;g  tc  +4 
180:  if  prpd  (P  (N  ,2]  ,0)  =prnd  (E  (10)  ,0)  ;N+B  (2)  ;qtc  +3 
181:  if  ahs(A)>10  apd  F [N  ,2  ] >20  ;f"*E  [ 2 ) ;qtO  +2 
182:  next  N 
183:  F l 2 ] *t 

18  4:ifP[F,4]<l;qto+13 

185:  if  F[F  ,4 j >«100;qtO  +9 

186:  "//////////" *A$ 1 1 ,10] ; if  P>9;1*P 

18  7:  str  (prnd (Dll ,0) ) ♦ A$ [ 1 , 3] ; A$ [ 2 , 3] ♦ A $ ( 1 ,2 ] ; "/"♦ AS f 3, 3 ] 
188:  lOcr nd ( F [ F ,41 ,-l) *0 
189:  qsb  "STRING" 

190:  osb  "TENP " 

191:  qsb  "BP" 

192:  1+D*D 

193:  nsb  " AFPAY  10" 

194;  if  F*Y ( 1 ] ; q to  +3 
195:  F*B(l];nsb  "ROUND" 

196;  oto  -30 

197:  nsb  "FOOT" 

198 : " 0350 50 070 0901 001 101401501 60 1 70 "*V$ | 1,30) 

199:  src  1;"  PPPP"*A$ ( 1 , 51 jnph  "SUPHFAD" 
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200:  " 0 " ♦ A $ [10 ,10  ] josh  "APPAY  15” 

201:  ir  t ( (I  (Y[l)  (P$  (1  4 ,M  ] j]'*.  0328  1)  *r<> 

202:  for  n=45  to  1 by  — 1 ; i f v{?,N']=0  and  »*  | 3 ,N  ] =0  ;nex  t N 
203:  if  inf (f [ ] ,N] * .003281) <r9; int (*‘[1 ,N)*.0032B1 ) -rS 
20  4 : irf ( (val (7$ (6,8] ) fval  ( P$ f 1 9 , 2 1 1) + 1 00 0) * . 0 32P 1 ) *r 1 0 
20  5 : 1 +L 

206  : for  f>  = 0 to  9 

20  7 : val  ( V.C  (K3+1  ,V,3  + 3]  )*C 

208  ; if  rl0>C;next  V’ 

209;  if  c>r9;ato  +12 
210:  C*304.8-»C 
211:  osb  "ANCLES" 

212:  "9////"* I $ 1 1 ,5  J ; " M*F$|1,15] 

213:  if  0=100*304.  R;  " 1 "♦I  f f 1 ,1 ) 

214:  V,$(l  3+2  ,W3+  3]  ♦ 1$  [ 2, 3]  ;A$[1 ) ,15]*F$(1,5) 

215:  ntr  (r9) -r$;  if  r9<100  rrd  I>$  [ 2 , 2 ] =W$  [ V3  + 2 ,K3+ 2]  ; 2*D;nrxt  V 
216:  if  r 9>  = 100  an  f1  P$  | 3 , 3)  =v  $ f V.3+2  ,V  3+2  ] ; 2*D;nex  t V5 
217:  15(1,51 -A$U,5]  jqsb  "AT  PAY  5" 

218:  F$|l  ,5)*A$.[1  ,5)  josh  "Al'FAY  5" 

219:  nnxt  V: 

220 : oto  +10 

221:  r9*304.8+0;osb  "ANCLFS” 

222:  if  r9=val (V $[N3-2,h3] ) ;qto  +8 

223:  Str  (r9)  *Q$;  if  r9<l  00  ;T?  S [ 2 , 31  ♦P  $ f 3 ,4  1 

224  : if  D= 1 ; ”9////"* I $ [ 1 ,5 1 "*F$(1,10) 

225:  if  n=l  anri  C>=100* 304 . 8; "1"-I$[ 1 ,1 ] 

226:  if  n=l;P$[3,4]-l$(2,31 ;A$(11 ,15]*F$[ 1 ,5| 

227:  if  D=2;R$[4,4)*IS(4,41 ;A$fll,151-F$[6,101 
228  : If(  1 ,51*A.$[  1 ,5]  josh  "AFP AY  5" 

229:  F$[1,10]-*AS[1  ,10]  ;osb  "AFP AY  10" 

2 30  : osf  "FOOT1 

231:  if  fln4;v*tc  2,2;for  Ii=l  to  75;wtb  2,0;next  N;wtr  2,0 
2 32  : trk  0;]df  15 
23  3:  rnd 
*19106 


145 


■ 

ft 


e . Last  Flight. 

(1)  Sound  R 
TRACK  1 FILL  4 


Ballistic  3 


e rr  "K'PK-ON  ni  f-py"  ;n  Ft  "PVT" 

, . in  A ? 1 1 00  ] f r t\  5 > , R [ in  1 fr  I 0 : 16 , 1 : 1 4 1 

r1  i-t  p$  n o?)  ,r?  []f-i  ,r<sf  if  1 , t.$  I if  \ |f  1 ,cr  1 1 1 ,r  him 

< irr  F [-1:60,1:61, ¥12) 

( jir  F [-2:4  5,1  :6]  I 151 

din  I 2.  32 1 ; t irr  500  


r rn  3 ; d r r "SOUND  FANClNC";orF  "IBP " 

if  f 1 o 4 ;vt  c 2 , 2 ; f or  N^l  tr  7 5 ;wtf  2,0;rovt  !.;wtc  2,6 
n t r +69 


Leer:vait  1 50  ; h or  r ; w?  i t 1 r 0 ; F eop  ;v  a i t 3QQ<;rot 


1 LTl'T"  :f  or  N*1 tr  Y | l]  ; if  f [N , 3]  f 0 ; o tc  +7 
31:  frr  K = N to  Y|l];if  HN,3]*0jnext  K 
32:  ( F | K , 5 ) - F [ N , 5 ) ) / { f | F , 5 ] - F | rl - 1 , 5 ] ) -*C 

33:  F f K , 1 )-C(F  IK  ,1  1 -F  (N-J  ,1  ) )+F[N,l  I 
34  : F | K , 2 1 -C  ( F [ K , 2 ) - F | i' - 1 , 2 ) ) + F | N , 2 I 
35:  F I K , 3 | -C ( F \V , 3] -F [N-l, 3) ) *F [6, 31 
36:  F [K  ,6  1 -C(F  |K  ,6]  -F[N-1  ,6)  ) -F|n,6] 

37:  neyt  li 
ret 


"FCOl"  :fn>t  2,  "9",/ 

if  fin  4 err  f]oB jear  2;wtc  2,2;vrt  2.2;vtc  2,0 
f IT- 1 b ,7. 

if  f 1 a 4 a rr>  fl  n 7 ; r>  a r 0 ; w t c 2 , 2 ; v r t 2 , 3 , 2 , P ; w t c 2 , 0 
if  f 1 n 4 ; w t c 2,2;fcr  N*1  tr  30;vtt  2,0;prxf  Fjv-tc  2,6 


. : A*  F " :f  m t h , 7 ; r a r 0 
4f : for  6=1  tr  P 

47:  for  K = 1 tr  2 ;rr s (OF [*< 1 , A 6 I r ,o ) ) * F ? i f F;rfo  *;ntr  + 
40:  next  K 

49:  if  F*1  cr  F =3  r r F-5  or  F-9;rfo  l,2,5,6;ntr 
*10734 


«TV  v-*W 


if  r 1 o 1 erH  f 1 r>5  ; cf  n 1 ;ntc  +4 

if  f]ql;wtc  2,2;wrt  2,27;wtc  2,0;sfo  5;cff  ],6;atc  +2 

if  f In2  srrt  f]nf  ;cfn  2;qtC  +2 

r>fn  6 ; rf  o 2 , 5 ; v t c 2 , 2 ; w r t 2 , 3 1 ; v t r 2,0 

vtc  2 , 2 y v*  r t 2 , f - 1 ; w t r 2,0 

ncy  t (' 

vtc  2,2;wrt  2 , 2 , P ; v- 1 c 2,1; 
rr  t 


3 

H 

sr  "NFSSACE  PEIFjr  DFLFTFD"; 

; w a i t J 0 C 

fTFTNf  " :f  x<*  0 ;r<tr  (r)  -r$[]  ,5] 
ir  f <1000 ;P$[  2,4] *r$[ 3,5] ;HC"-PS[ 2,2] 
if  K100;P$f2,41-P$fl,5]  ; "0"  *PS  f 2 , 2 ] 
if  f <10;BC[2,41-P?|3,51;"0,,*r<$|2,2] 
if  r <1  ;r$|2,41+r$[3,5]  (2 ,21 

tft 


) - ’ ♦ .J 

it  i a 3 ; r ( > t ^ 
if  l M ; 2*-J 

1 + j -*•  1 
» ?,  ( ^ ( • ■* 

UU+I’I  ,1))"" 

“2ccr  (i  |f  ,f. 

) ) “?.)-',drO 

1 • 1 > 

I'-  ! 

(.  cc  - ( 1 . i t ,h  ) ) / 

l-H'U,  11))'  1 

r ) -i  1 1 ] 

t U , LJ  -I  [31  ;• 

h '•  i ♦ i ” 

| ] j ,|  | c | ; X -»l  1 

M r'-i  Ml- 

X;:  IM  -M  '/) 

-i  i < 1 ; ! 

1 '<  I 

itr-  ( (i  f 1 1/  (».  i 

» ,4)  -1  i J ! ) ) 

.(  : 2 3 i ,f  ) -1 

n ! 

! r r : • ( 1 l | * 1 u/v 
t.cxf  i 

1 J ♦ 4 1 

r 1 ! ( S J - » m ; 
V ■*(_'  ; Y - 1 

r 1 ; '• 

l*(/l 

f 2 | ;nr 

r 21  [ 1 1 *1  [11; 

x +C  -*C  ; Y + L - 1 

I (■■  ] 

’ [ 2 1 ; n r * 

r 3f  [ ?]  -I  [ 1 ) ; 
'/  +r  -C  ; Y.+D*  l 

I V 1 

*9/10 

l [21  ;<•  s i 

1-4L  [3I-!  [1]  ; 
X+C  -C ; Y+b-l 

i m 

* v/ 1 6 - 

[ 2 ) ;rs!- 

r 5L  l 4 1 -1  [1|; 

Hi  ! 

*9/16- 

! ( 2 | ; n r.  f 

133:  I [ ] ) -S ; i'  ( 2 1 * 16/9 ♦A 
1 3 4 : 1 1 r c ( C , 0 ) -S ; f r ru  ( A , C ) - A 
131 : if  /'  = G;64-/' 

136:  il  ?*G;0-A 


sfn  ' ;ort  "mAcrr" 

Cf  Cl  ° ;n  rt~  'TCH" 

srr  5 

r.fo  3;r1sr  "CO+PNTFF  F-FT"  ;nrh  "PPF" 

1-1  ,51+P[2)  ;H  |-1  ,61  *P[  1]  ;opY  "P*T" 

X*F  | 4 1 ; V-»P  | 6] 

str  (rrntf(H  [-1  ,?1  ,0)  ) -A  $;  A$  I 2 ,4  ] -P$  [ 22 ,24  1 
if  t’[~l  , 2 ] > = ] 000 ; A $ ( 3, 51  ♦PS  f 2?, 24] 

P511  ,121-A?[1  ,121  ; PS  f 13,24  ] ♦P  f [ P 5 , ° 6 ) ;]2*J 
if  ppt  f]o3;nto  +34 

qgb  "li[  ALL!" 

0-  I 

f r rfl  (Hf-2,5J* 16/9,0)  *A ; if  A = G;  6 A -»A 
F rr<i  ( H { -2 ,6  ] ,C)  *G;  if  S=0;0-A 
rrrrt  (M(-l  ,4  ] 10,0)  *1 
prnd(H[-l,2] ,0) +0 
qsb  "AM  AY" 

.UQOCOOl-li  [0 ,4  1 

for  P = 1 tc  2 9 ; i f P |P, 4 ] =0;otc  +23 
if  P = 1 ; C ♦ j 
if  P=2;next  F 
if  P = 3 ; 1 ♦ J 

if  P=4  cr  P=5;next  P 

if  P=6?P-3*J 

if  P>6;P-]-J 

l+I-I 

6367650-S 

V ( ( O'+H  ( P , 1 1 ) '2-f “2cos  (H  f P, 6 ] ) ”2)  —Esin  ( H [ P , 6 ] ) »F  | P ) 

( Scor  (!)  [ F , 6 ] ) / (B+V  [P,  1 ) ) ) F ( P.  1 -P  f 1) 

IlfP,  5)*P[  ?1  ;nsb  "P*P" 

F(41*R[51 ;X-I (4) ;1 [Sl-p(41*X;P[6]*F[7] ;Y-P[f1 ;r[71-P(f]-Y;orb  "P-P" 
r rr.d  ( (F[  1 ) / ( H [ P r 4 | -I!  [0  ,t ) ) ) .0  32  30 ,0)  *S 
H{0, 3}HfP,l )6371 2^9/ (637 12 99+P[P, 1) ) -P  ( 1 ) 

H [0,3]HfJ, 1)6371299/ (637129 9+ *0  12] 
rrrrl((  (P  [ 1 ] -R  [ 2 ] ) /6 7. 44 2 (H  [ J , 2) -H  [ P , 2 ] ) ) 1 0 , 0)  *1 
tr  “ ( (U  (p , 2 ] +h  [ J , 2 ] ) /2)  -C;prr.(l(C,0)  -0 
F r r (1  ( R { 2 ) * 1 6 /9  , 0 ) -*•  A 
if  A=0  ; 64  •»  A 
if  t = C ; 0-»A- 
osb  " AF'FAY  " 
ncx  t P 

qfb  "FOOT" 

fff  5 

sfo  3;6ep  "PAM  OUT  f FT"  ; cist  "PPB" 

str  (j  rnt'dOfjOU] -1,21/1013. 25,0)  )-A$;A$  12,4]  *P$[  22, 24  ] 
if  H 1-1  ,21 >*1013.25;A$( 3, 5] -Pf { 22,24] 
ntr  +11 

" A 1 PAY-12"  :I*f  ;osb  "STPINC" 

FSf4,5]*A?jl,?l  • A*f'  ;qsb  "STPINC" 

P $ (4,5]  -»A$  [3,4]  ;S*P;aBb  "STF  INC" 


*20997 


/V9 


-<-+VY  . 


P $ ( 4 , 5 ] -*  A C 1 5 , f>  | ;W;qsb  "SI  F I fir" 

I 9[3,5)-A$[7,9|  ;(.*f’;qsi  "STFIl'f  " 

P$|3,S]*Af|)0,12] 

if  fln4  orn  floBjpar  2 ; f r.‘  t 3,cl2;v,tc  2,2;wrt  2 . 3 ,A?  | 1 , 1 2 | ; v tc  2,0 
if  fin*  arc,  1 lo7;  12-ti;arf  ”/'-P" 
ore  A$ { 1 ,12! ;nrt  A$(l , 12) 


Ii  [ -1 , 5]  ♦ r I 2 1 ; H | -1  ,6 1 ♦p | 1 ] ;nsr  r-*  i 

X-F  [ 4 ) ;Y*I  (6] 

1-1 

If-]  , 2 ] +C  f 0 , 4 ) 

for  P = 1 to.  27  ; i f H|P,4  1=  0;ot.  C -*2  3 
P-2  + .J 

if  P=1;0»J 
if  1=2; nrx  t J 
if  P = 3 ; 1 -»J 

if  P =4  or  P=r>;noxt  P 
if  P=6 ; P-3  +J 

if  P=7  or  F=R  or  P=15;P-1*J 

if  P =9  or  F = 1 1 or  P = 13  or  P = lb  or  F=18 jreyt  P 
if  P = 20  or  P=22  or  P=24  or  P=26;pext  p 
6371299-S 

V ( (S+H|P,  1 ] ) '2-S  ~2ccs  (h  [f  , 6]  ) *2)  -Spin  ().  |F  ,6]  > -PJOJ 
(Seas  (H|P ,6)  )/(S+H [P, 1] ) )F ■ It) -PI  11 
fl  l F , 5 ) -Tv  1 2 ] ;qsh  "P-K" 

P[4)  *R(  9]  ;X*F(4  1 ;P[  51  -R[4]  -»X;F[6|*R(  7]  ;Y*F  f C)  ; F ( 71  -F  (f]  - Y;asf-  "F*F" 
ptno  < (F  [ lj/(h  {F,4]-tl  [J  ,4  ] ) > .0  3238,0)  +S+C  | I ,2  ) 

H|0, 3]H[P,  1 16371299/(6371299+0  |P,  1 ] ) -I  1 1 ] 

H|U,3)  IjIJ, 1)63712  99/ (6371299+ 11  IJ,1))*1  (21 

(PHI  -B  12)  )/f.7.442(H[J,2]  -H(P,2]  ) -C  [ 1 , 31  ;r  rnr1  (C(  I ,31  ,0)  vj 

tn“((HfP,2J+H(J,2|)/2) -C*C(I  ,4 1 ;ornd (r, 0) *C 

P[2J*C[I ,5] 

if  I <=14 ; 1+1 -I*C[ T ,1 1 

next  P 


for  7 = 1 to  J f ; l f C ( 7 ,4 1 p 0 ;rrx f 7 
Z - 1 Z 


2 37  ; for  N=P  tc  7 ; 34  8 . 38  395C  [ N , 4 ( /V  [ N , 31  *C  ( i) , 8 1 ; rex  t K 
2 38  ; C[0,91/1225-C  (C',10  1 ;C[  1 , 91  / J213 .3*C(1 ,10)  ;Cf  2,91/Uf  4.  4-C(  2,10  ) 

2 3 9:  T [ 3 , 9 ] / 11  39  . 2-C  1 .3 , 1 0 ) ;C  | 4 , 9 1 /l  084  . f.*c  I 4 , 1 0 1 ; C I 5 ,9  ] /I  0 32-C  I c , 10  ] 

24  0:  C.[6,9J/957-C  [6 ,1  0 1 ;C.(  7 , 9 1 /86  3 . 4*r  | 7 , 10  1 C ( 8 , 9 1 /7  7 7-C  | P , 1 0 1 
24  1 ; C l 9 , 9 1 /697 . 4 -*C  ( 9 , 10  1 } C [ 1 0 , 9 ] / 590+C  [ 1 0 , 1 O']  j C [ 1 1 , 9 1 / 46  7»C  ( 1 1 , 1 0 1 
o4  2 : C|  12 ,91/364  . 8*C  ( 12 ,101  ;C(  13, 9 ] /266 ,6-CJ  J 3 , 10  1 ;C:  ( 14 ,9J /]  94  . P*C(  14  , 10  I 
24  3:  C[15, 91/142. 3+CI15, 101 
24  4 : 100C  10.  lOUC  I 0.1 11 


C[1  0,  3]/24?.7-C(  10  ,(>]  ;C[  1]  , 3]  /2?“  . 8+C  [ 1.1  , 6 ] jC  f 1 2 , 3 ] /2)  f . R-C 1 12 ,6  ) 
C(13, 3 1/216. 7*C( 13,6) ;C[ 14,31/216. 7*C 1 14,6) ;C 1 15,3 ]/216.7*C| 15,6] 
nto  +9 


"AFRAY-FO" :I»r;qsh 
B $ 1 4 , 5 ] ■*  A?  (1,2)  ;A-r;ash  "53  FINC" 

E $ [ 3 , 5 ) + A$  (3,5)  ;5*M;or,h  "STP I NC" 
fl$ l 3, 5] *A$ [6  ,8) 

if  f 1 o4  srd  flqP;par  2 ; f m t l,c8;vtc  2,2;wrt  2 . 1 ,A$ 1 1 ,8 ] ; wtc  2,0 
if  f 1 o 4 and  flo7 ; C+I?  ?n  £t  " F-.+  F " 
c'FF  A?  [1  ,U)  ;p r t A$[l,8) 
ret 


0-  J 

csF  "APrAY-FO" 


* I 

frr  P = f;  to  34 ; j f li[P,4)*P;otr  +21 
if  P=8 ; 0+ J 

if  T-  =9  or  P = 1 0 or  P=ll;rrxt  P 
if  P = ] 2 ; P.+J 

if  P = 1 3 or  l-  - 1 4 ;rrx  t P 
if  P = 1 5 ; 1 2 ♦ J 

if  P = ](>  cr  P = 1P  cr  P = 20  or  P = 22  or  P = 24  or  P=20  cr  P=2R;nrxt  P 
if  F = 1 7 ir  t =15  or  P = 21  cr  P-23  cr  P=25  or  P=27  cr  l=29;F-2*J 
if  P>29 ; P-l-*.i 
C371299-P 

V ( (S  + II  |P  , 1 ) ) "2-5~2con  (0  ( P,  6 ) ) ~2)  -Ssin  ( H (P , f, ) ) -F  ( 0 ] 

(8c  or  (B  ( P , 6 ] )/(5  + B fP,l  J)  )RM?J*P[  1J 
H ( P , F 1 -*  P ( 2 ) ; cj  ri  " P ■»  P " 

T’  l 4 ] ♦!>  I 5 ) ; X*  1 | 4 ) ; F l 5)  -1  ( 4 ] -X ; P ( f,  1 +K  l 7 ) ; Y-F  l A ) ; F l 7]  -I  [6)»Y;oEb  "P-P" 

F rrr'  ( ( F ( 1 1 / ( t>  f P , 4 | -li  f J ,4  ] ) ) .03238,0)  -5 

r r re (1121*18/9,0) -A 

it  A=(;»)4-»A 

if  f.  * 0 ; 0 ♦ A 

osb  "APT  AY-FO" 

l+I*  1 

next  r 


S PC  5 

Ffot  3 ; d r r "PALUS7IC  3 YPF  3”;nsb  "PPP" 
cto  4 1 1 


F+  l-*r ; f or  H*1  tc  7, ; rtJC  [ F , 6 ) +C  ( N ,7  )*C  [ N , 7 ) ; r ex  t 0 


11  90  7 


337:  100*rl;20*r2;9-*r3;f"*r^;4-»r5;3*r6;2-»r7*r8*r9;l*rl0;0*rll-»rl2-»r]5;o5!l-  "V  V " 
338:  (}+  r 1 ;8C  *r  2 ; 1 9 ♦ r 3 ; 12-»r4  ; 8-*r  5 ; 5*r6;  3*r7;2*rlO;  1 »r  ] 2 *r  1 3»r  1 4 -*r  1 5 ; orb  "V.V." 
339:  0-*r2;72-»r3;26-*r4;15-*r5;l>rf';  7*r7;C-*rf  ;5*r9;l*rl]  ;nrb  "WV  " 

340:  0*  r 3 ; 50*r  4 ; 20  »r  5;  9-*rf>  ;4  *r  lP  + r 1 1 ; 2*r  12  ;q  Fb  "VW 

341:  0*r4;5  3-*r5;12*r6;Or7;3*rl0-»rll;4»r]2;3*rl3;2-*rl4-*rl5;gsb  11 M*. " 

342:  0*r5;C3*r6;2G+r7;14-»rt>;12-*r9;7*rl0*rl2*rl3-»rl4-*rl5;8*ril;qEl  "VW  " 

34  3:  0*rb  ; 5 3-*r7  ; 19-*r8  ; 13-*r9  ; ?♦  rlO*  r 1 1 ; 7*  r 1 2 ;q  sh  "VW  " 

34  4 : 0 * r 7 ; 4 5-*r 8 ; 20  *r9  ; 9*r  10* r 1 1 ;o Fir  "VW" 

345:  0-*  r b ; 36*r9  ;8  ♦rl2  ;orb  "VW." 

34b:  0*r9j55*rl0;20*rll;17*rl2;15*rl3;13+rl4;]2»rl5;nFh  "VW," 

347  : 0-*rl0;38*rll  ;16*rl2;14^rl3;osl  "VW  " 

348  : O-rll;  30*rl2;  13-rl3;  H*rl5;oFb  "VW  " 

349:  0*rl2;24*rl3;10»rl4»rl5;oFl  "IV" 


l1-*  r 1 3 ; lP-»  r 1 4 ; b r 1 5 ; n <-o  "VI 
0 ♦ r 1 .4  ; 1 4 -» r J 5 ; g rl  "V  Y- " 


352:  fcr  N=1  tc  Z ;C  | K , 1 3 ] *X  ;C  | N , 1 4 | *V  ;o  si  "WP" 

353:  1 [ 1 ) -C|N,  1 3 ) ; 1- | 2 j >(  [I  ..14  ) :nry  t N 

354:  P[-2,5)*C|P,i4] ; H | -2 , 6 ] 100+C( 0,131 
355:ifrctfln3;nto+]4 

350:  K 1 2 5 , 36]  j 1 , 1 2]  ; 3 5 | 1 3 , 2 4 ] «»> ? 1 ft  5 , •>(,]  ; 1 2 « J ;nrt  "IlLALLl" , 

357  : f rr  N = 0 to  7. ; N-*  ] 

35H : r r rd  (C  [N  , 1 1 ] 10 , 0 ) *r 
359:  r r nr>  (('  [ N , 7]  10,0)  *1 
3 OP;  r rrc1  (rjtv,  ] 3)/]P0 ,0)  -r 
301:  r.rnd  ( C ( t. , 14  ]*  10/5-0,0)  *A 

302:  if  /'  = f;64*A  ‘ 

30  3:  if  f - = ( ' ; 0 ■»  A 

3f  4 : if  f >cin;r-lPP-»f:;  I + 8P-I 

305:  net-  'V  PF/'Y  - 1 2 " 

30  0 ; rr  y t ! 

30  7:  <ift  " f OjGT  " ' 

300:  rr  c 5 

30  9:  trk  1 ; Id  f (i  , 

3 7 0 : r n d 1 

*17270  j 


( 2 ) Ba 1 1 is t ic  2 


TRACK  1 FILE  8 

(i  ; rfr,  ?.;rrr  " ^ M 1 T n TO  T Y nr  ?";orl  '‘ROO" 
1 : etc  + 7 


wa  1 1 


if  flq4  erv:  flqBjpnr  2;wtc  2,2  jy  r t 2.2;wtc  2 , 0 
f r t l , ?• 

if  f J o4  ?rx:  f 1^7 ; rat  0;v.tc  2,2;vrt  2, 3,2,0 jwtr  2,0 
if  f J a 4 ;wtc  2 , 2 ; f cr  u=l  tc  3 0 ; w t L 2,G;riext  i;v,tc  2 


A*  L‘"  : f r t t ,7.  ;per  0 

for  1=1  t c l 

fer  K = 1 tr  2;rr.r  (!•$  [K]  ,A  $(('  ,0  ] ) -►  L ; if  F;nfa  K;otr.  +; 
re  x t K 

if  t =1  n F-  5 cr  l=F  cr  F=0;cfc  1 ,2 , 5 ,f>  ;c  tr  +0 
if  flel  ape  flor);cfd  l;otc  +4 

if  f 1 n 1 ; wt  C 2 , 2 ; w r f 2,27;wtc  2 , 0 ; f f o $;cfn  ] ,<  ;ntc 

if  fln2  arc!  flqfjcfci  2;ctc  +2 

rfn  0;cfq  2,5;wtc  2,2;vrt  2,31 ;vtc  2,0 

wfc  2,2;wrt  2,f-l;wfc  2? , 

r r x t f 

wt-c  2 , 2 ; w r f 2 , 2 , B ; w t r 2,f' 


mcLffrcfn  1 ,2,5,r.  ;rr.r  2 
: if  f 1 q 4 rri  llo»;frf  3,cl2;wtc  2,?;wrt  2 . 3 , / f | 1 , 1 2 | ; wtr  2,< 
: if  fl"4  and  f ] g7 ; 12*1  jost  "A-t" 

: oEt  A f i 1 , 1 2 | ; n r t A $ | 1 ,12! 

: !-$  |n5,'i‘J]  -AS  |1  ,.J  | 

: if  f 1 o *) ; q t c t < 

I:  if  fln/1  arc:  flqB;wtc  2,2;wrt  2 . 3 ,A.‘.  1 1 , J ) ;w  tc  2,0 

: if  fin  4 arc1  f ] c7  ; 1 2-R  ;qcl  " A ♦ f " 

■ : etc  + 3 

: if  find  ord  f]ofjfrt  3,cl5;wtc  2,2;wrF  2 . 3 , A $ | 1 , J ) ; w f c 2,0 
"M  q7  ; 1 c.-»l  ;o  rf  "A*!" 

: drr  A$[l,J);rrt  A?  |l,Jl 


•err  ICC"  :f  yd  0 ; r f r (►')  *r  5 ( 1 , 5] 
if  * O OOP  ;»'$(  2,41 -n$|  3,51  ;"0M*P  $(2,2 
if  r<100;F  ? | 2 ,4  1 I 3, 5|  ; "0"-»nS(  2,2  1 
i f V<10 ;B$  1 2 ,4 ) -P  $ f 3, 5] ; " 0"*P$ | 2 ,21 
if  f<l  :B$|2,41-r?|3,5|;,,C’"*l  $12,21 


APOAY  :I*F;osr»  "ST  PI 00 
P?|4, 5| -AT  | 1 ,21  ;A-N;rtE|~  "STPINr" 
f $|  3,  5)-A$ | 3,8] ;S*f ;qpl  "STHNC" 
t$  | 3,  SI -AS  [f.,P  1 • •i-fjorh  "ST  MFC" 
r$f2,5]-A$[?,i2)  ;<r-r  ;°fi'  "stow" 

PS  12,51  -A$  | 11  , 1 r.  1 

if  finU  ore  flnHjrrr  2 ; f r t 4 , c 1 6 ; w f r 2,2;wrt  2 . 4 , A $ ( 1 ,16]  ;wtr  2,0 
if  f ] n 4 mr  f]r-7;  lf.*l-;orf  "A-P" 
r ' r r A 5 1 1 , 1 6 ] ; r r f A $ [ 1 1 f ] 


"A  rr ay-12"  : T-r  ;ort  "ST  F<JNf  " 

I 5 M ,51-A$  [ 1 ,2  1 ;A*r-;nrl  "ST  I I " 

I $!4,51*A$|3,4]  ;S*r  ;qsh  "STP1NC" 
i T (A  ,r.  ] - AC  | 5 ,6  | ; T*f  ;crh  "ST  p I NC  " 

OS  | 3,5 ) -A$  I 7 ,9  1 ; C - f ;opf  "ST  0 I Nf  " 

05(3,5 ) -AS (10,1  21 

if  f 1 n4  nnr)  floR;Fsr  2;fnt  3,cl2;wtc  2,2;wrt  2 . 3 ,A?  ( 1 ,12  | ; wt  c 2,0 
if  f ] o 4 i>pi  f 1 r>7  ; 1 2 *0  ;q  sfc  "A-P" 
r'sr  A$  (1,12  1 ;r  rf  AS  ( 1 ,12] 


1 : M 1 *1  ; f c r N*1  to  X ; r NC  | F , 6 ] +C  ( f: , 8 ] -C  l i 1 , 8 1 ;nf  x t I 

2 


F+l-P.;for  N=1  to  7 ; r NC  ( I , 10  ] +C  ( r , 1 2 ] -C  ( N , 12  1 ; ney  t ! 


r ( 1 ,2]  *T  ( 1 1 ;C(T  ,51 *r ( 2] ; l + I*I;opt  "F-r" 

for  ft=l  to  ; Y.r  1<-K' ( Is  , 1 3 1 -C  1 1<  ,1  3]  ; Yr tl+O  1 U ,1  4 1 *C  i t>  ,14  1 ; rox  t t- 
rr  t 


1 Off (0,0  1 * 

r I o , o l 

lOlUr)  - S3* 

r 2 ; 37*r 3 ; 2 8- r4  ; 

20  - r 5 ; 

1 3-rC; 

1 0-r7  ; 

9-r  8 ; 7-r9 ; 5 

- r 1 0-r 1 3 — r 1 

3 - r 1 4 

4-rl2 

; 5 * r 1 

5;P-P;qrt  "T?" 

0 * r 1 ; 

37-  r 2 

; 37-r3; 30-r4 - 24 

-r 5 ; 1 9 

♦ rS ; 1 a 

♦ r7  ; 1 0 

- r f j 5 ♦ r 9 ; 8 - 

r 10 

f>*  r 1 1 

-rl2- 

rl3-rl 4 -r 15 ;osh 

"T2" 

o*  r? ; 

2 0 - r 3 

; 35*r4;30-r5;24 

* r 6 ; 2 P 

— r 7 ; ] 7 

* rfi  ; 1 4 

-r 0 ; 12-rlO; 

10-rl  1 

-rl  2- 

r 1 3 * r 1 4 

1 0 - r 1 

5 ; n r 0 

"q  2 •• 

0-  r 3 ; 

1 0-r4 

; 1 f *r 5 *rt  ; 1 f> * r 7 

; 1 5*  rft 

; 1 3 - r 9 

; 10-rl 0;B-r2  2 

9-rl  1 

-r  13- 

rl4-rl5;nr0  "T  2 

M 

0*r4  ; 

8 - r 5 ; 

1 4 ♦ r o * r 7 ; 1 3 ♦ r 8 ; 

12*r9  ; 

10-rl  0 

; 8 - r 1 1 

-rl3-rl4  -rl  5;orl" 

" T 2 " 

t)*rr> ; 

12-rS 

; 1 9-r 7 ; 20 - r8  ; 19 

* r9 ; 1 7 

- r 1 0 ; 1 

5-rll; 

1 4 - r 1 2 ; I6*rl3-rl4 

♦ r 1 5 ; 

qrt  "T  2 

0*  rO ; 

/ - r 7 ; 

12-rL; 1 5*r 9 ; 14* 

rlO ; 13 

♦rl 1-r 12 ; 1 2* 

rl3-rl4 -rl 5 

;osl  " 'i  2 " 

0*  r7  ; 

4 -r  8 ; 

R*r9; 10-r 10 ; 12* 

r 1 1 ; 1 1 

*rl2; 13-rl3- 

rl4-rl5;q  sh 

" T 2 " 

0*  r>: ; 

3-  r “ ; 

6-rl0;10-rll-rl2;ll*rl3-rl4 

♦rl5;osl  "T2" 

0 * r 5 ; 

0-rlO 

;12*rll;l6*rl2; 

10-r  13 

♦ rl4  - r 15  ;qr,0 

"•12" 

: 1 PTC ( 0, 10 )*C( 0,12) 

9fi : 10P*r];t'3*r2;37*r3;25*r4;20*r5jl3*rCi;10*r7}S*rH;7*r9;5*rlO;4*rll*rl2 
97 : 3*rl3*rl4;2*rl5;0-F;nrh  "C2" 

B : 0 * r 1 ; 3 7 ♦ r 2 ; 37-r3;30*r4;24*r5;19-rf>;14*r7;10-r8;9-r9;8*rl0;f'-rll-rl2 
c)9 : c * r 1 3*rl4*rl5;osh  "02" 

* 32450 


, xn 


U>  0-> 


r 


for  N = 1 tr  7 ; 0+C  | r: , 1 3 ) -»C  I N , 1 ; rex t 


] 0 0 ♦ r 
2-*  r 1 ] 
0*  r 1 ; 
4 *ri  r 
0 + r 2 ; 
c * r 1 3 
0 * r 3 ; 
0-»r4; 
ft  ■*  r cj  ; 
nrl  " 
0 -»  r 6 ; 
0-r7  ; 
( ' ■*  r 8 ; 
(j-»  r ‘i ; 
f*r  1 0 
On)] 
ft*  r ] ? 
O-rl  3 
0 * r 1 4 


1 ; 8 P*r2;2°-»r3;lfi*r4  ; 
♦r 1 3+r 1 4 ;nrb  "WK" 

8 (' ♦ r 2 ; ^3»r3;23*r4  ; 1 8 
:*rll*rl?-»rl3*r]4  ;nsl- 
3L-r3;  3l*r4  ;31-*r5;22- 
I*  r 1 4 *r  1 8 ; a rh  "l-t  " 
?.0-r4  ;27-rc,;  20*r6;l  5- 
Il-rO;  1 f) * r (• ; If  *r7;  13 
27-*r7;24-»rP;21 


13-»rt3;R-*r(';7*r7;4-*rf(->r°:3-*rlO-»rl7;l*rl 


3 9-rf> 

*V  V " 

1 1 * r 7 ; 18  -rr  ; 2r*r‘! ; 15 
f'-rfi;  1 2-r9;  1 4 -►  r 1 P ; 1 2 
G*r9  ; 13-rlO  ; 1 1 - r 1 3 ;f 
i 1 *r  10  ; 18  -*r  1 1 ; lc*rl2 
P ; 8 - r 1 3 ; 10 -r 1 7 ; 1 1 -r 1 3 
] ; G » r 1 2 ; 0 ■*  r 1 3+rl4*rl5 
?;8-*rl3;6-*rl4  ; 8 ■*  r 1 8 ; o : 

3 ; 5* r 1 4 ; T *r  1 5;o rf  "Vl 

4 ; 4 -Mr  1 f> : n sb  "l.’V  " 


-►r8;12-»rf  ; 8 ■*■  r 7 ♦ r 8 ; < 
"W  " 

■*  r G ; Hi  ■*  r 7 ; 1 3 r 8 ; 1 ] 

♦ r 7 ; 1 2 ♦ r 8 ; 1 0 * r 9?  7 * i 
+ r6;G-*rll;4*rl4;G-»i 
■»r9;  ]G-rlO;  1 3*rll  ; : 

♦rl0;ll*rl2;10»rl3; 
+rll ;3f ♦r!2;9*rl 3 ; < 

♦ rl2*rl3-»r34  ; 7*  r 1 5 ; 
;]4-rl3;13-rl4;12-i 

♦ r 1 4 ; ] f '*  r 1 5 ;r  "M 

;nrb  "VI" 

e b " w " 


•fl;  3-rl  8 

; f ■*  r 1 0 ; f>  * 1 1 1 ; 7 -*  1 1 2 


; G - r 1 3 ■ 
;qnl- 

► r 1 2 ; 3 1 - 

-I  I " 
r 1 5 ; n r 1 
" V.V 
i;orh 


+ r 1 4 ; 4 
> l " 

♦ r 1 3 ; 8 


♦ rl  5 ;a  rl 


*r] 4 -rl 


3 00.  ] no  | = "nm  ; t r V ( ; 1 M H . r>,f. 


1 5 4 

Is  in  1 |4]  ;"////////"*'  ■$  [C  J 3 1 

1 C-r 

6. 11*  1 0*(?.5l  ( < , 3 ] /(?37.  3+f  ((•,  3 | ) ) -V 

1 50 

if  HO,'  l<p.60}otc  O 

1 07 

if  f | • 1 » 4 1 < 1 0 (’  0 rrr  1 1 6 , 4 ) > = 0 CJ< ; " f " -r$  f ( ,6  ] ; r-  t <-  +3? 

3 st: 

if  1 ||  ,4  | >-l000;"l  ///!,"-(  6(0  ,301  ;r-tc  +16 

l os 

i-  10, 3 1 + .67  (0  50-f  10, 4 1 ) +2  7 3. 16-1]  1 21 

1 GO 

')  | 2|  ( 1 + . 1 03  2 3 2V/000)  *T  l 4 | 

301 

( . 13* 1 0‘  ( 7 . c (7  | 2) -273. If ) /( 2 37.3+7  | 2 1 -27  3. 3 6)  ) -V 

3 0 2 

'1  | 2|+  ( .07)  1 50-7  | 3 ) 

10  3 

■i  | 1 | ( 1 + . 151  2 12V/ 3 0 00)  -7(3] 

lhA 

1 Ova)  1 b$  1 3 6 ,2  3 | ) - 3 3.  72  3 (?  |4  ) +1  [0, 3)  ) Men  (8  50 A'  [ C,  a ] ) ;nsl  "FTFINf 

1 0 0 

• rn,rl-c$[6,ri 

160 

f -3  3.721  (T  ( 3 ] + 'i  (41  ) Mon  (1000/650) -f  ;nr.l  "HM  GO" 

167 

if  ■■<0;'<  + 500-r  ;F.tr(f)-C$(l0,131;r$()l,]31-C$(10,l?l;otr  +f 

1 0° 

if  r >0;nrl  "n(  I nr  " ;0  5 ( 3 ,6  1 ♦(“$  ( 1 0 1 2 1 ;o  to  + f, 

160 

1 ( C , 1 1 + . 0 7 ( 1 f 00-[  [ 0 , 4 1 ) + 2 7 3 . 3 6 -7  D1 

1 70 

Till  ( 1 + . 3 c 1 2 1 2 V / 1 0 0 (■ ) -T|  31 

3 71 

1 Ovcl  ( 1 1 °,?3  ] ) - 3 3.  7 21  (7  (31+1  (0  , 31)  *1  on  (1  000/r  (0,4  1 ) ♦r-opf  "fTrif1 

17? 

if  r < r ; • + 600 -r  ;rtr  (f)  -rS  f)0, 3 31  ;r*  ( 1 1 ,1  31  -of  ( 10 ,1?  1 ;oto  +2 

1 7 3 

1 r (3,6 1-^0(10,321 

177 

t r y 3 ; ref  5,6$,r  6 ,('-f  ,l.F  ,Mf  ,C  ? ,r  f 

3 7 6 

f r V 1 ; 3 r1  r 10 

1 76 
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d i r 
‘ ir 
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c 
d 

r 3 in 
d ir 
d i ^ 


r ir 


/*?(  2t>l , i- fill  5)  ,c|  l]  ,r  |12] 

F.$|ir2],r-M1M  ,0C  MM  ,\t\\()  ,('S  1 1 o?  l ,r  * [ Kl 

I 1-2:46,]  : f 1 
I 1-1:60,1:6!  , v | 2 I 
M 3,461  ,r?(  101 
V $| 401 ,75  1161  ,.a  |01 
T ? ( 6 1 , P* I 1 0 ) 

I c I 2 , 32  1 ; t ir  r 600 


ST!  " /'-•!"  ;f  n t 1 ,7  ;r?t  0 


32:  for  C*1  *o  rl* 

33:  for  K»1  tc  2. ; rcr  (9?  I K 1 ,C5[  r,  Ol  ) -J  ; i 


• f o v-.pt-r  +2 


34 : pox  f K 

3r. : if  j=l  or  J = 3 or  J=6  rr  J**»;cfn  l,2,S,6;ofc  + 

3(  : if  flol  apf'  flo5;cfo  l;qtc  +4 

.37:  if  flol  • wt  o 2 , 2 ; wr  t 2,27;wfc  2,0jsfn  6;rfo  l.Ojotc  +3 

3li  : if  f 1 n 2 rnc1  flcOjcfo  2; cite  +2 

39:  r.fn  6;c.fq  2,2;wrf  2,31  ;wtc  2,0 

40:  wtc  2 , 2 ; wi  t 2#J-lj*«tc  2,0 

41:  nr  xt  C 


" ” ♦('  - I 1 ,0'  1 

A *'  I 1 , r'  I *C.$(2,fc)  ;rr.l  "/w  PAY  C" 
A?.  I , 1 r |*C$  I 2 ,6  1 ;rp.l  "AFPAY  f" 
Af  | 1 1 f 1 5|  -CM  2,0  I "AFPAY  6 

c'ri  API]  ,15)  ; r r t A?  [ 1 ,15] 


"AFPAY  10": 

" "*C$  1 1,0] 

AS  | 1 ,5  | *C$|  2 ,0  I ;nF|  "Al  PAV  6" 
AC  I 0 ,1  0 ) -C'S  I 2 ,r.  | ;nrl  "APPAY  f 
r^rr  a*-  II  ,101  ;r  rt  A$  | 1 ,101 


• » A J p * V 

r m . 

II 

M-rr i l 

,0  1 

: A ? | 1 ,5 

1 *C  f | 2 , 

0 1 ; ri p h "APT AY  0" 

r’ri  AS 

1 1 ,5  1 ;r 

ro  AS  [1  ,*] 

rot 

. PAv  r " ; 

r^(l,F]=»  ";r^t 

I 1 + 1 -C'|  ] | ; i f C I 1 | OP  ;ntr  +7 

r\  r>  i jrr'  flnr;»~rr  ?;frt  4 , •»  , P ;wfr  2,2;wrt  2 . 4 , 7 4 1 , IP  ;vtr  2,0 
f ] n t ^pr1  flr-7;rrt  4,p,7;r>rr  Ojvtc  ?,?;wrt  2.4,2,f;v»tr  2,0 
'll  I ;<’f  |?,f  1 -CS|1  ,H 
f)nt  fl  f]r7;  c*r]4  ;nfl  "A-P" 

f ] n A epr  fl<'P;r£-r  2;fnt  4,7,c5;wtc  ?,2;vrt  2 . 4 ,C?  ( 1 ,c  ] ; v t c 2,0 
• +3 

f)n<  prr’  ilnf.;rrr  4,7,cf«;vtc  2,2;wrt  2 . 4 ,CS  1 1 ,f  1 ; wtc  2,0 

f]n«  pp<‘-  f]  r>7  ; G-r  14  ;rjf1  "A-V" 

"-Cf|l  ,0)1 


3,51 

7 ,9 1 *A$ ( 3,5 


r » : 

r rr>4  ( | ( f f 

1 1 ,-H 

-3' ; f rr  (3  ) *r 

op (T ) = 1 

or  r 

°r>  (3  ) = 

0;  if 

O'*. 

l r r 0* . 3 o 

nn (T) *- 

1 ; i f 

0'=  . 2 rr  r*. 

4 rr  r.=  .fi  cr  r 

T)  * 

3 

" - A 

?f«. 

" 1 ;rfr  (in  ) 

♦CO 

>o 

a rr1 

3 <1  ;r 

012,21 

-AS  fO 

,p1 

7>  pO 

T<1.0 

?rrf2, 

31  -AS 

f7. 

PI 

>°. 

o • r S 

12,41 

-AO (A, 

PI 

" I P"  : i 0 r rrr  (F|P  ,11,-1) <-4T ;"//"* f ", 1 0 ] ; rr 
if  I IF,21*r;2-F|F,21 


* a 2 3 a 


(F  |r  ,21/100)  6.11tr“(  7.5KF  ,1  |/(2  37.3+F[F,l  ])  )-r 
(237. 31  co  (l  ) -IFF.  .527  ) / ( f». . 2K6-1  rr  ( r ) )-P 


9 


t r nr1  ( ! ( F , 1 I -F  , - 1)  *r 

o o "•»/'?[  , 1 n ] 

if  r>n  rrr1  I ' 1 ; r t r (r  r nd  (1  Or , 0 ) ) -c'f  • r f ( 2 , 7 l - a * (1  o , 1 0 1 
if  f>.9  «->  rf>  F<  5 ; r t r (r  rnd  ( 1 Or  ,0)  ) -*C5  ; C f f 2 , 31  + A 5 f *' , 1 0 1 
if  r >4.q;rtr  (rrrd (50+r  ,('))-<  f ; r?  I 7 , V * I •' , 1 o 1 

rr  r 


tT  4 4 ; j f r>''|  I ,N'];PPXf 


T 


" M;rr  fo*  :frr  N = 

if  r | 3 , N ] =0  ard  r*|2,N]=C;”  " * A$  ( 1 1 ,1  51  • rc  t 

V | 1 , M - 1 ] ■*  r ] ; V [ 1 , N 1 * r 2 ; f*  | 3 , N - 1 | * r 3 ; V [ 3 , f | + r 4 • f | 7 , N-  J 
r 4-(  ( r 2 — C )/(r2  — rl) ) ( r 4 - r 3 ) +S 
if  r 5-rG  >=1  BP  ; r 6+  36 0-»r6 
if  r 6-r  5 >=  1 BO  ; r 6+ 360  + r 5 
r6-(r  2-0  ( r 6- r 6 ) / ( r 2-r 1 ) +A 
if  S<0;A+1£0+A;abs  (.6)  *C- 
if  A > * 3 6 0 ; A - 3 6 0 + A 
if  A<0;A+3C0*A 

t r rd  ( A/5  ,<  )*5+A;rrnd(S,0)  +S  ; F-  + 1 OC*A*  A 
r t r (A  ) ♦C$;C<(  2,f  ) ♦ A ? ( 1 1 f 1 5 1 

if  A r 1 0 OOP ; " 0"+  a $ | ]]  , 11 ) ; C$ | 2 , c 1 +A  ? 1 1 2 , 1 5 1 
A <1  COO ; " 00 "* A f | 11 ,12  1 ; CO  f 2,4 ) + AF  f 1 3 , 1 5 | 

A<  1 0 0 ; " 00  0"  + A 5 I 1 1 , 1 3 | ;C $ [ 2 , 3 ] -AC  f 1 4 , 1 5J 
A <■ ) 0 ; " 000  P " ♦ A C 1 1 1 ,]4);C$[2,2]  + AS  [ 1 5 , 1 c.  1 
A=(  ; "OOP"  + A?  [ 11  ,1 31 


►r6  ; f | 2 , M 1 + r A 


i f 
i f 
i f 
i f 
rr  t 


" orif  i't  $,  'i  r"T>  r rrv  non  'i  rrprr.FFTON 
r rrd  (f  f r,6  ] +vp]  ( r-S  1 1 0,21  1 ) *1  0, 0)  +r 
rtr  (C)  +C‘$;  "OPP"*aS  | 3 ,61 
if  T < = 5 0 0 ; n f O +6 

if  r >0  ?nd  c<10 ;C5 [ 2,2]-A? | 6 ,6) 
if  r>°  and  0<1  00  -C*  | 2 , 3 1 * AT  1 a , 5) 
if  0 9*)  ppf  r<ri000;rf  [2,4  )+aF|  3,51 
if  O 9 0 ° ; C ? ( 3 ,6  1 + A 5 [ 3,c1  ;rfo  -»  1 
if  C >500  ?r4  r <IP00P;CS[2,4 | +A$ [ 3,6] 
i f r>9999;CS| 3,51 *A$f 3,61 
rr.[  "Tr»?p" 
nrf  "rr" 

r rrd(Hf  ,6]+va)  (PS [19,21  l)  *10,0)  +c 
rrf  "A'.CLfF" 

rr  t 


"r'  + l " : V (XX+YY  ) -.1 

otr(Y/(X+lc-90*  < y - 0 3 ) ) + 2*rnr  ( Y)*ef  r ( lo*;9  ) * ( x< (■)  +A 
if  A <0 ; 3A0+A+ A 
rr  t 

"P+I  " : r *ocr  ( A ) + X ; I * r in  (A  ) +Y 
rot 


if  rof  f la  ?;o to  +207 
1 O+Cf 1 1 

"OFT!  "+AF  | 1 ,4  1 ? rr  [6,91  +A6  I 6 ,P] 

r?  [4,6|+AMn,]0]  ;Pff  10, 121+A5!  11,1  31  ;D$  [0,7  l+A*  (14,1  = 1 
orb  "APPAY  lc" 

70 


r 


160 


»**fP*M| 


15C:  f$  [13,14]  ♦Af  [1 ,2]  ;P$  [19,21  ]*A$  [3,51  ;nst  "ARPAY  5" 

151:  lf-C[ll 
1 52 : ate  +£ 

153:  "SI  PH  LAD"  "*A$[6,15] 

154:  v ci ) (T$  [1  ,2]  ) ♦Zjstr  (rrnd  (Z+50,0)  ) -»A$[6,P] 

.155:  AS[7,H)*A$[6,71 

156:  £tr  (rrnrKval  (D$  [4 ,71  ) .01,0) ) -A $[6,10]  ;A$[9,10]-A$  [8,9) 

157:  if  val (A$[H,9) ) <10  ;A$ [8 ,8] ♦A* [9 ,91  ;"0"*A$[P,8] 

15H:  eft  1 ,5]*A$[11 ,15] 

159:  ret 

160:  lCval  (P$  [19,21]  ) [ 2 ,1  ] ;H|-2,5)  ♦tf[2,l)  ;H  I -2, 6)  *M[3,1) 

1 b 1 : H 1-1,5] *A; H ( — 1 ,6  ] ♦! ;a  sb  "P*P" 

162:  X*rl ;Y*r2 
lb  3:  . OOP] -H (0,4  ] 

1M:  fer  P=1  to  45;if  H[p,4]=0;ato  +11 
165:  i-j-j 
1 u6  : 6 3f  76  50  -*S 

167:  U (S+n [P,l ] ) “2-5“ 2 cos (F [P,6 | ) '2) -Ss j n (w f P,6 ] ) ♦ r 3 
1 f (Ceos  (H  fP,61  )/(S+F  (p,l  1 ) ) r 3+* 

16°  : !!  (1  ,5)  -A  ;n  sb  "P-F" 

17*':  r 1 +r4  ; X ♦rl  ; r 4- r 1*X  ; r2  -»r5;  Y-*r  2 ; r 5-r2*Y  josh  "p^p" 

171  : ( V’/  { H f P,  4 1 -H  [ •!  , 4 1 ) ) . 0 32  38 ♦ ?♦*’  [ 3 , P+ 1 1 
172:  -'-r  f2,  P+ll 

173:  " [i'  ,1  1 + (H  [P,ll-i:  [J  ,1  1 )/?  + ] Oval  (PS  []Q,?l  1 ) f 1 , P+1  ] 

1 7 a : nryf  P 

175:  " ]('00fi85()07l)00500c400030n025n020001  5001  00"*h'$ 

J76:  <=rr  TTA A"*A$(1,5]  ;ash  "SUFMEAD" 

177:  fc'r  f=45  tc  1 t y — 1 ; i f N[2,N]=0  and  P [3  ,N  ] *P  ; nrx  t N 
178:  r (] ,N] -P (6] 

17P:  for  N*  2 to  Y[l];if  K (N  ,6  ] <P  f 5]  ;nex  t N 

ltd:  "/"-At  1 10  ,1(1] 

lfels  for  W = 9 tc  G ty  -1 

112:  if  F[N-1 ,41  <*val  (V.?  ('•  4+1  ,W4+4]  ) ;V:$  [V.4  + ? ,va  + 2]-A$  [10,10]  ;ato  +2 
18  3:  next  V- 
1 f 4 : rtc|  "AFFAY  15" 

JPr:  "//// ///////////"  *b.% 

lob:  0*b;at-t  "HEIGHT  (,  7ENP  & LFfc  POINT  DEPRESSION" 

107:  " Q f-  " ♦ a ? [ 1 ,21  ; s t r ( P'  [0,4]  ) ♦C  $;f'$[2,4]  ♦A$[3,5] 

1>  8:  if  P [0,4  1 >1 000 ; C$  [ 3 , 5 ] ♦ A$  [3,5] 

18  6:  »> [ - 2 , 5 ] ♦A ; H [ -2 ,6 1 *F ; nr nd ( A/5 ,0 ) * 5 ♦A 

1 60:  rrrr*(S,G)  ♦R;S  + 10nA-A;Ftr  (A)*AS  f Ml  ;A$[.12 ,161  - A$f  11  ,]  51 
1 r 1 : if  A<ionon;ASni,14]*A$[12,151  ;"0"*A$ni  ,11  ] 

102:  if  A<1000;A$[11,141*A$[12,15]  ;"0"*A$[11  ,11] 

1^3:  if  /»0;"0P0"*Af  [11,13] 

H 4 : ’'fill  ,151  *7, $[1,51 
1<5;  ,•  s|  "AFrAY  15" 

1 °(5  : 0*1 

1 °7  : for  F»1  tc  V [1  ] 

1 "6:  va  1 (wS  [M  + l ,K4+4  ] ) *f 
166;  "///////////////"♦AS 
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r 


t 
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200  : if  (<=10  00  arc  C $ [ ] 0 , ] 0 ] # " N"  ;Q$  ( ] 0 , 1 2 ] *A  $ | 3 ,5 ) ;a  to  + 5 

2o  1 : if  13=850  and  r $ 16  ,6  HTN"  ;Q$  1 6 ,8 ) *A $ ( 3 , 5 1 ;n  tc  + 4 

202  : if  P.<F(F,4)  anri  B # F ( F , 4 | ;oto  +7 

203:  if  B=  F | - 1 ,3)  cr  B=F[-1,4]  or  B=  F f - 1 , S | or  r = F [- ] , 6 ] ;o fr  +2 
204  : q=l  "FLIGHT  & TEFP  S,  DLV-  POINT  LBPPEFS ICN " 

205:  V.'$  (W4  + ? ,W4  + 3 ) *A$  []  ,2] 

21-0:  of  I "A  FRAY  15" 

20  7 : if  P.  # 1 0 0 ; V-  + 1 ■»  V- 

20  8 : if  E=100;A$f3,5|-*Z$(6,8]  ;ato  +2 

200 : next  F 

210:  if  F [Y  [ 1 ] ,4  1 >200  ;ato  +6 

TiT!  for  L=1  tc  Y [1  ] ; i f F | I.,  4 1 >500 ; next  ii  " 

212:  f,+  ] *N 

213:  if  N>Y [ 1 1 ;ntc  + 5 

21  d : rrrd  ( (Ffl.,31-F  [m,  31  1/.0P1  (F[N,H-FfL,61  ) ,-l ) +C 
2 1 s : if  r<=?  and  F [N,6  1 -F  [1,8  1 >=2000;ato  +4 

216:  if  C<=2  arc1  F fb  , 6 j -F  f I, ,6  1 < 200C  ; N+l-M  ;o  to  - 3 
217:  next  I. 

21  R : o to  -*-13 — 

21°:  F [l,  ,41  1 ♦H;L*F 

220;  "////////////////"* A$ 

221:  asb  "TEFP" 

222:  qsh  "DP" 

22  3:  H+ lOval  (P$  [19,21  1 ) ♦Q;ash  "ANCLES" 

224  : " 68  " *A  $ [ 1 , 2 ] js t r (C  )-»C ? ; C$  [ 2 , 4 ] •»  A ? 1 3_,  5] 

2 2 5:  if  v a 1 ( A ? [ 3 , 5 ] ) < 1 0 0 ; o t o +3 
2 2fc : osb  "APPAV  15"  ‘ 

2 27  ; cite  45 

2 28:  val  (A$ ( 1 ,5)  ) -A  [1 ] ;val (A$ ( 11,15|  ) -A (3] 

229:  if  A $ [ 9 ,10] ="//" ; va 1 ( A $ [ 6 , 8 ) ) +A [ 2 ] 

2 30  : if  A$[9,10J#"//";val(A$[6,10)  ) -»A  [ 2 ] ;c  to  +2 

231:  "88999 "*A$ ; o sb  "AFFAY  5"  

232:  if  F[Y[1 1 ,4]>500;ato  +27 
233:  N[3,l]-v 

234:  for  N=2  to  46;if  H (N-l , 4 ) =0 ;g to  +3 
235:  if  F-  ( 3 ,N  1 > V ;F  [ 3 , N 1 ♦ V ;F  [2  , N J-*-0 ; N-*C 
2 36:  next  N 
237:  if  V<60;gto  +21 

? 38:  1000/ (MN  ,C]  -F  f 1 ,C-1  ] ) *r  13 ; 100  0/  (F  [1  ,0+ 1 ] -F  [ J ,ri  )-rl2 

239:  abs(V-M[3,C-l ] ) r 1 3*r 1 3 ; abs ( V-F f 3 ,C+1 1 )rl2*rl2 

240:  for  L=1  tc60;if  F f I.  ,6  1 <=F  f 1 ,C]  and  FfI+],6]>Mfl,Cl  ;oto  +2 

241:  next  L 

242:  if  F [L,4  1 >500  ;nto  +10 

24  3:  F fl.  ,4  1 + (F  [1  ,C)  -F  fr,  ,6  1 ) (FfT.  + l , 4 1 - F ( £. , 4 1 )/(FfL+l  , 6 1 -F  f T, , 6 J ) * P 

244  : "77"-A$U,21  ;P-C;if  P<100;10P*O 

245  : qst  "STFING" 

246  : prnd(0/5 ,0)  5*0;r-rnd  (V  , 0 ) -*V  ; 10  00+V»V 
247:  str (V) *C$ ;C$ [ 2 ,6 ) -A$ [6 , 10 ) ; " 4 "*A$ f 11 , 1 1 J 

248:  if  rl3<l ; 100+pr nd ( r 12 , 0) *r 1 3 ; str ( r 13 ) *C$ ;C$ [2 , 5 1 ♦ A ? [ 1 2 , 1 5 1 
24  9:  10()pr  nd  ( r 1 3 , 0)  +rrnd(rl2,0)-*-rl3;str(rl3)*C$;CS|2,5]  »A$  f 1 2 , 15) 
*6390 


it  rl3<10nn ;"0M*A$ [12 ,12]  ;C$  (2  ,4 ] -A?[ 13,1 51 
if  H[C+1,4)=0  ;"//"■►  A$  f 14  ,1*51 


)f  P<  100 ; qto  + 


a t c +5 


if  A.  $ [ 1 4 ,1  5] =" / /" ;ve]  ( A S 1 1 1 , 1 3 ] ) -A [ 6] 
if  A?  |14 ,1  5] *"//" ;val (A$ (6 ,10] ) -A  [f ] 

" 7- qqq"*A$;rirb  "ARRAY  5" 


76 
2 
2f: 

26 
26 
26 
26 
26 
26 
2J 
27 
27 
27 
27 
2 7 
2 7 
27 

27  b: 
<.79: 
26(i : 
26  1 : 
2 M 2 : 
26  3: 
2 4 : 
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; F I 0 ,2  1 +P  | 5]  *P  1 6 ] 

foi  t =1  fc  Y[l] 

if  rrnd(F[M,ll,-l)>rrnd(P[3l  , — 1 ) ;F  [M  ,1 1 -B  ( 3 1 ;F-P  [ 71 

if  rrnd(F[Mfl]  ,-l) <rrrd (P [ 4 1 , -1)  ;F  fr  ,1 1 -r  f 4]  ;r-P  [R ) 

if  rrnd(F  [M,2]  ,0)  >rrrd(B  [51  ,0)  ; F [f*  ,21  -P  [51  [91 

if  rrnfMF[v,21  ,0)  <rrnd(F  [61  ,0)  and  F fM , 2 1 # 0 ; F [V , 2 1 * P [6  ] ;K*  P fl  0 1 

if  F |F,  2 1=0  and  p,  [1  1 1 « 0 ; 0-p  f ] ] 1 ;M-1  -P  []  2 1 

rot  F 

Ttt  + M 


"r  ( IIKL'"  : Y [ ] ] ♦ r | 2 1 

if  T-  ( 7 1 > H [ 1 ) and  H [7  1 <B  [ 2 1 ; R ( 71  -B  [ 2 ] 
if  L [ 6 1 > E ( 1 1 ard  P [8  1 <B  f 2 1 ; B [ 8] -B  [2  J 
if  P 1 91 >P  [ 1 ) and  E [9 1 <B [2 1 ;B (9) -B [ 21 
if  f [ 101 >B  [3 1 and  P [ 10 1 <B [2 1 ; P [ 10 ] -B [ 2 1 
if  I [ 1 2 1 >P  [ 1 1 and  1’  [ 12  ] <P  (2)  ; P [ 121  *B  [ 21 


0*1  [ 1 J ♦ P ; o t o +20 

0-1  [31  -A- F [41 

foi  V = B [ 1 1 +1  t.o  B [ 2 ] 

(f  If  ,61 -P  IF  [11  ,6j ) / (F [B  [2 1 ,61 -F [Bill ,6)  ) -C 

F [f  ,1  1 -F  [ B [ 1 ) ,11-C(F  [P  [2  1 ,11-F[P[11  ,1]  )*A 

if  r r nd ( F [M , 1 j , -] ) =pr nd (F [ P [ 71 , 1 ] , -1 ) ;F -B [2 1 ;o fo  +5 

if  nr  nd  (F  j F , 1 1 , -1  ) =t  rnd  (F  [B  [H  1 , 1 ) ,-l)  ;F  *P  [2  j ;n  to  +4 

if  ahr(A)>l  and  F[M,4]>«300  and  at  s(A  ) >B  [ 4 1 ; V-P  [3  1 ;ah.P  (A  )-P  M 1 

if  at'  f (A  t > 2 and  F[f',4]<300  and  ahn  (A  ) >P  [ 4 1 ;F-P  [3 1 jaFs  (A  )- P [4  ] 

ne>  t t 

if  r f 3 1 >F [ 1 1 and  P [31 < B [ 2 1 ;B [31-F [21 joto  -9 
r-t[3)-A;if  B [ 1 1 >P.  ( 1 2 ] ;q to  +8 
foi  v = P [11+]  to  P [21 

(F|*,,6]-F[B[11  ,61  )/(P[B[21  ,61-F[P[11  ,61  )*C 

Fi‘  , 2 ] - F [ F-  [ 1 1 ,21  — C ( F [ r [21  , 2 ] - F [ P [ 1 1 , 2 1 ) ♦ A 

if  rrnd(F[F,21 ,0)=rrnd(F[P[91 ,21 ,0) ;F-P[?1 ;qtc  +4 

if  rrnd (F[v,21 ,0)*rrnd(F [E[in] ,21 ,0) ;M-P [21 ;qto  +3 

if  ahs ( A) >10  and  F [F,2 1 >20 ;M*P [21 ;qto  +2 

ne>  t f 

pi; i +f 

if  t [ F , 4 1 <100  ;ci  to  +13 
"//////////"♦A? |1,10|  ;if  B>9;l-D 


300:  str (prnd(Dll ,0) )*A$ [1, 3) ;A$ [2 ,3] *A$[ 1 ,2] ;"/"*A.$ [3,3] 

301  : if  L * 0 ; " 0 0 " * A $ 1 1 ,2  ) 

302:  prrd{ F IF ,4 ) ,0)*C 
303:  qst  "STR  I NT" 

304  : cist  "TF.NP" 

305:  qst  "DP" 

30G  : 1+C*D 

307:  ast  "ARRAY  10" 

3 OR  : if  F*Y  1 1 1 ;a  to  4 3 
309:  F*nil;asb  "BOUND" 

310:  gt<  -31 

311:  qst  "FOOT'  

312:  sp<  1;"  PPEP"*A$  [l  , 51  ;qsh  "SUBHEAD" 

313:  "O' -A$(10,101 rarh  "ARRAY  15" 

314:  -"HT7T2-0 3rr*TJ'67V7n R 0 51  7I7TT5A  2 5 30  ^55 0 70 11  - V $'  f f,  34~ 

31 5:  ini  (val ( P$ [ 1 9 , 2 1 ] ) * . 0328) +1 ) *rlO 

316:  int  ( (F  [Y[l]  ,6]/10+val  (P$  [ 1 9 ,21  ] > ) * . 032*  1 ) *r<» 

317:  if  F [ Y [ 1 ) , 4 1 > 1 00  ;o  to  +2 

318:  ini  ( ( val  ( 2$ [ 6 , 8 ] ) +val  ( P?  [ 19 , 2 1 ] ) + 100 C ) * . 0 32  8 1 ) - r9 
315:  foi  11=45  to  1 tv  -ljif  f [ 2 , N ] — 0 and  M [ 3 , N 1 =0  ; ncx  t I* 

320:  if  int (M  | l,Nl *.  003281) <r9; int (K (1 ,N]*.P03281) *r9 
321:  "9(  0//"-i$  [l  ,5)  ?2*L 

322:  " "*F$ [1,15] ;Z$ [1,5] *F$[ 1,5] 

323:  foi  W — 0 to  16 

324  : val  (Vv$  [K’2  + 1 ,W2  + 2 ) ) *( 

325:  if  rl0>C’;next  V 
3 26  : if  0>  r9  ;ato  +13 
327:  C*304.8-o 
328:  qst  "ANGLES" 

329:  if  D = 1 ;"9////"-I? [1,5]  "*F$[1,15] 

330  : if  D=1  ;W$  [V*2  + l ,W2  + 2]-I$  [2 ,3]  ;A$[11 ,16] -F$  f 1 ,5] 

331:  if  D = 2;R,$  [W2+2  ,t  2 + 2]*  1$  [4  ,4  ) ;A$[11,1  5] -F$  [6,101 
332:  if  D-3;W$ [K2+2 ,K2+2 ]♦ 1$ [5,5] ;A$[11 ,15] *F$ [11 ,15] 

333  : if  Dt  3 and  W$ [W2  + 1 ,W2+1 ] =W? [W2  + 3 ,W2  + 3] ;D+1 *D ; nox t W 
334;  sti  (r9) -B$;  if  r9>=10  and  0$  [2 ,2]  =W$  [V.'2  + l ,V  2 + 1 1 jD  + l-D;next  VC 
335:  if  r 9 <10  and  V’$  [W2  + 1 ,W2  + 1 1 ="0"  ;D+1  *r  jppx  t W 
336:  1$ |1,6] -A$[l ,51 ;qsh  "ARRAY  5" 

337  : F$  [1  ,1  5]  *A$[  1 ,1  5]  ;qst  "ARRAY  15" 

338  : l*t  ;ncxt  V. 

3 39  : t9<  304  . C*C  ;qEt  "ANGLES" 

340:  if  r9*val  (K$  [V  2-1  ,K21  ) and  D»l;qto  +10 

341:  if  r 9=vnl  (fc$  [W2-1 , V.  2 j ) and  Dtl;qto  +7 

342:  Fti  (r9)*B$;  if  r<K10  ;B$  [2 ,2]  *B$  [ 3 , 3]  j " 0"  *P?  [ 2 ,2  ] 

34  3 : if  W $ [W2-1  , V 2 - 1 ] #R$  [2  ,2]  ; 1*D 

344:  if  D*1;"9////"*I$[1,5] ; " "*F$[1,15] 

345:  if  D* ) ;P$[2,3]*I$[2,3]  ;A$[11,15]*F$[1,5] 

346:  if  D=2 ; P$ ( 3 , 3 ] * 1$ [4,4 ] ;A$ [11 ,15] *F$ [6,10] 

347:  if  D=3;P$[3,3]*I$(5,5] ; A$ [ 1 1 , 1 5] *F$ [ 11 , 1 5 ] 

348:  I$11,5]*A$[1,5] ;gsb  "ARRAY  5" 

34  9:  F$|  1,1  5]*A$[1,15]  ;gsb  "ARRAY  15" 

*12315 


( 4 ) AhS  Output  Second  Tr  ansit  iss  ion 


TRACK  1 FILF.  11 


0:  r’sn  "USA F AV>;S  MESSAGE" 
1 : at  c +113 


f it  t 2 , z , cl 

if  f la4  and  flab;par  2;wtc  2,2;wrt  2. 2 ,char (59) ;wtc  2,0 
dsp  " ; " ; p r t 
1 0 -C  1 1 ) 
ret 


22:  " "♦C$11,6) 

23:  A$ [ 1 ,51 +C$ [ 2 ,6 ] josh  "ARRAY  6" 
^4:  A$ (6 ,10 ) ♦€$ I 2 ,6 ) ;ash  "ARRAY  6" 
25:  A$[ll,15) ♦C$[2,61 ;asb  "ARRAY  6 
26:  dsp  A$[l,15);prt  A$ [1,15] 

27 


for  0=1  to  rl4 

for  K= 1 tc  2 ;dos (H$ [K ) ,C$ [n ,o] )♦ J ; i f .7;sfq  Kjotn  +2 
next  K 

if  J=1  or  .1=3  or  J=5  or  J = Q;cfn  l,2,5,6;ato  +5 
if  flal  and  flo5;cfo  l;qto  +4 

if  flol;v/tc  2,2;wrt  2,27;wt.c  2,0;sfo  5;cfa  l,6;ofo  -t  3 
ifflo2andfln6;cfn2;qto+2 
cfn  6;cfa  2,5;wtc  2,2;wrt  2,31 ;wtc  2,0 
wtc  2,2;wrt  2,J-l;wtc  2,0 
next  C 


1. • nj'  rst\  i ±\j  . 

29:  " " -C« ( 1 , 6) 

30:  A$ ( 1 , 5] *C$ [ 2 ,6 ] ;asb  "APRAY  6" 
31:  A?  [6  ,10]  ♦C$(2,6]  ;q<?b  "ARRAY  6" 
32:  dsr  A$ [ 1 ,10] ;ort  A$[l ,10] 

33:  ret 


*26«09 


AH  I AY  t>  : 

if  C$[l,61 " ; re t 
C 1 1 1 + 1-*C]1]  ; if  C ( 1 1 < 10  ;q  to  +8 
per  2 

if  flc4  and  f]q8;fmt  4,z,h>wtc  2,2;wrt  2 . 4 ,14 1 , 10 ;wtc  2, 0 
if  flc4  and  flq7;fmt  4,b,z;Dar  0 ;wtc  2,2;wrt  2.4,2,8;wtc  2,0 
0*CIU  , -C$12, 6) ♦C$|l, 5] 
if  flc4  and  flo7  ;5  + rl4 ;qsb  "A+P" 

if  f lc  4 and  flqft;nar  2;fint  4,z,c5;v.tc  2,2;wrt  2. 4 ,C$  1 1 , 5 ] ;wtc  2,0 
ate  +3 

if  f 1 c 4 and  f]q8;nar  2;fmt  4,z,c6;wtc  2,2;wrt  2. 4 ,C$  [ 1 ,6  ] ;wtc  2,0 


f 1 < 4 and  f 1 a7  ; 6 ♦ r 14  ; a sh 


"STFlt  C"  : if  0<1000  are  C>9 9 ; St r (0) -AC  [ 3 , 6 1 ;A$  ( 4 ,6  ] * A$  [ 3 , 5 ) 
if  C<3  00  and  C>9 ; str (0) ♦A$ [ 3 ,5 ] ; " O"* A$ l 3 , 3] 


"TEFP" : nrnd (F l F , 1 ] ,-l) -T;frc(T)  -C 
if  son  (T)  =1  or  son(T)=0;if  Q*  .1  or  0=  . 3 or  C=.5  or  C=.7  or 
if  son (T) =-l ; i f 0=.2  or  0=-4  or  C = . 6 or  Q=.ti  or  C*0;T-.1*T 
at  s (3  ) +T 

,,U00"-A$  | f> , 8 ] ;str  (10T)  -C$ 
if  1 > 0 and  1 < 1 ;C$ [2 ,2 ] * A$ ( 8 ,8 ] 
if  'I>.9  and  T<1  C ;C$  [ 2 , 3 ]♦  A$  [ 7 ,8  ] 
if  1>9.9;C$ (2  ,4 |-A$ [6 ,81 


or  rid (F ( F , 1 ] , -1) <-40 ; "//"*A$ (9 ,1  0]  ;ret 
if  F [ F , 2 1 =f) ; 2 + F | F,  2 1 

(F [ F,2 ]/100) 6.11 tn“ (7.5F(F, 11/(237. 3 + F[F ,1) ) ) * E 
( 2 37.  3 loo (E)- 186. 5 27)/ (8. 286- loa ( E ) ) *E 
nrnd (F[F,1 1 -E,-l) ♦ F 
"00"-.  A$  [ P , 1 0 1 

if  E:l)  and  E<1  ;str  (nrnd  (10E  ,0)  ) -C$  ;C$  [ 2 ,2 1 -*A$  [ 10 , 10  ] 
if  t:.9and  E<5 ; s tr (ornd ( 10E ,0 ) ) *C$ ;C$ [ 2 , 3 ] ♦ A$ (9 , 1 0 1 
if  F: 4.9;str (o rnd ( 50+E , 0 ) ) *C$ ;C$ [2 ,31  -A$ [9 ,10] 


or  N=2  to  44;if  0>M [ 1 ,N] ; next  N 
if  F I 3 , N 1 *0  and  w[2,N]-0;"  " *A$  [ 11 ,1 5 ] ; ret 

■ U ,1  -1]  ♦rl  ;M  (l,Nl  *r2;M  [3,N-1]  -r3;  M[3,N]  ♦r4;M2,N-l  1 +r5  ;F12  ,N]  *r6 
r 4- ( ( r 2 - 0 ) / ( r2-rl) ) (r4-r3) *S 
if  r‘  -r6>  = 180;r6  + 360-*r6 
if  rf  -r5>=160 ; r5+300+r 5 
r6-(r2-C)  (r6-r5)/(r2-rl)+A 
if  £<0 ;A  + 180*A;abs  (S)*S 
if  A>= 36 0 ; A-360* A 
if  A<0 ;A+360*A 

r r nd (A/5 ,0 ) *5*A ;pr nd ( S , 0) *S; S+ 100 A* A 
str  (A)*C$;C$ [2,6] -A$ [11 ,15] 
if  A< 1 0000 ;"0"*A$ 111 , 1 1 ] ; C$ [ 2 , 51 •* A$ ( 1 2 , 1 5 ] 
if  A<1UO0;"(j0"*A$  111  ,12]  ;C$ { 2 ,4 ] ♦ A$ [ 13 , 15] 
if  A<1()0;"000"*A$  111  ,13]  ;C$  l 2 , 3 ] * A$  1 14  , 15  1 
if  A<10;"0000"-A$ (11 ,14]  ,C$  [2,2]*A$ |] 5,15] 
if  A=  0 ; " li  0 0 " * A $ [11  ,13  ] 


HEK’HT  (,  1EFP  f.  DEV.  POINT  DEPRESSION 
ornd ( F (F,61  +V3l (P$ (19,21 ])* 10,0) *0 
str (0) ♦C? ;C$[3,5]*A$(3,5] 
ash  " TEf'P" 
aph  "DP" 

rrnd(F |F,61+val (P$ (19,21] ) *10,0) -0 
nsh  "ANKLES" 


w 


100  : ret 

1 0 1 : ”r-»p"  :V  (XXfVY) +r 

102 : atn ( Y/(X4lc-90* ( X=f) ) ) +2*ron (V) *?tn (lr99) * (X<0) *A 
] 0 3 : if  A<0;36P  + A+A 
104:  ret 

10  5:  " P-  p " : F * cc  s(  A ) - X ; T * r.  in  ( A ) *Y 
106:  ret 

! 0 7 : " 5 b R FIFA  D"  : " "♦A$| 6 , l5l 

106  : val  (C${1 ,2  ] ) *Z;str  (r  me*  ( Z + 50 , 0)  ) -A$[6 ,8) 

109:  A$|7,8]-A$16,7] 

110:  str  (prrd(vsl  ID5> [ 4 ,7)  ) .01,0)  ) *A$ 18,10)  ;A$[9,10  ]*A$[0,9] 

111:  il  val(A$[«,9] ) <10 ; A$ l 8 ,8 ] *A$ 1 9 , 9 ] ; "0"  + A$ | 8 ,8 J 
112:  Cv 1 1 » 5 ) *A$ (11,15) 

113:  ret 

114:  " 7 0 5G  30  20 1 0 0 70  50  30 20 100 0000000 00 00000000 0 " *V$ 

115:  spc  2;"  nCC"*A$  [ 1 ,5]  ;osb  "SUBfliAn" 

116:  for  K = 4 5 to  1 ty  -l;if  [ [2,N]=0  and  N [ 3 ,N ] =0 ; nex t N 
117:  f'|]  rN  l-Rf  5) 

HP:  for  N = 2 tc  V[l];if  F [N , 6 ] <P  ( 5]  ;rcxt  N 
119:  for  V- 4 to  0 fcv  -1 

120:  if  F [N-l  ,4  ] <=Vc>]  ( V’$  (W  2+ 1 ,V’2+  2 ] ) ; V $ (W2  + 1 ,t.’2+l  ] »AS  [ IP  , ] 0 ) ;n  tc  + ? 
121:  next  V*' 

122:  nEb  "APPAY  15" 

123:  "/////////////// "*A$ 

124:  P-F  -nsb  "F  F irHT  & TFF'P  & DFV  POI  f’7  rEPPFFflON" 

12  5:  0 

126:  for  F = 1 tc  V f 1 ] 

127:  v?l  (V  $[V  2+1  2 + 21  ) *P 

128:  "///////////////"-AS 
129:  if  KF[F,4|  one  1 #F  [P  ,4  ] ;atc  46 

130:  if  P.-F[-l,3]  or  B*F[-1,4]  or  1 =r  | -1  , S J or  r*P | -1 ,6] ;oto  42 
131:  (Ub  "PFICin  & Trr  P S,  I'LV  POIN'i  CLFPfSSION" 

132:  V S [ V. 2 4 1 ,w 2 + 2 1 -AS[  1 ,2  ] 

133:  nrb  "AIFAY  15" 

134:  if  Ltl;V.  + 1*1 
135:  next  F 


C M 


1 c> t ; ntf  4 2 

151:  " 7 75 0 9"- A $;rrst-  "AF’PAy 
15/:  nrt  "KC1" 

rpc  1;"  1TPP"-AS  | 1 ,5]  ;csh  "SM'lir/'T1 
V"*Ac|lC,ir|;nr.l  "Air/'Y  15" 


153: 
1 54  : 


. OD 

1 5r 


o-i 

n t C 


1-r. 

♦ 9 


1 57  : 

"nOONI  " : Y ( 1 ] -P  [ 2 ] 

l 5P : 

i f 

0 [ 7 | >o  1 1 1 and  r 

I 7]  <\  (21  ; F- 

171 -r (21 

150; 

i f 

1 (0  1 >0  [ 1 1 and  r 

1 0 ] < F (21  ; P 

|P] -F[2] 

1(  ( : 

i f 

O 1 9 1 >0  [ 1 1 a rr'  ! 

[ ^ ] < r | 2 ] ; 0 

1 o 1 - 1 (21 

16  1 : 

i f 

r [ 1 0 J >0  [ 1| 

O f 1 0 ] < I'.  | 2 ) 

;F |1 0)-P(21 

162 : 

i f 

1 [ 1 2 1 >0  [ 1 ] and 

0 11  21 <!  [21 

;P (121— T 

[2] 

If  3: 

i f 

111  ID  ,*  | > = 100; 

F'l  2 ] -I  (11; 

otc  -0> 

If. 4 : 

rot 

U f : 

0-1 

| 1 | - i ; q r 0 "1  CL!  1 

t"“ 

Iff: 

0*1 

f 3| -A- II4J 

1 f 7 : 

f cr 

r =1  11  1 + 1 r r l 1 

21 

lfcf. : 

<t  1 

f ,f> i-i  m i)  ,gi  i/d  u [2] 

1-F  (MU 

,M  )-c 

16  5: 

1-  l! 

, 1 | -1-  | P 1 1 1,1 ) -c 

(010121,1) 

-F  10(11, 

i ) ) *a 

170: 

i 1 

r to  (I  | r ,1|,-1) 

-r rrc  (I  | 7 | 

, - 1 ) ; f - r 

( 2 ) ;oto 

44 

171  : 

if 

r r rr 1 ( 0 ( r ,!),-!) 

-f  rp<  ( I | 0 ) 

, - 1 ) ; F ♦ L 

1 2 ) ; r,  t C 

4 3 

17  7 : 

i f 

a t r ( A ) > 2 rr/  at 

r>(A  )>il  1 4 ) ; 

‘ -1  ( 3)  ;a 

t F ( A ) * I;  | 4 ) 

17  3: 

r r v 

t r 

1 74  : 

if 

i | 3 1 >0  I 1 | and  r 

1 1)<'  121  ;!• 

(31-1  [2] 

; o t o -P 

1 75: 

()*! 

1 3|  -5  ; i f F | 1 ] >1 

1 12 1 ;ntc  +G 

1 7(  : 

for 

f ='  [ 1]  i 1 to  f | 7.) 

177: 

C r | 

’’  ,o  l -f  nil]  ,01  )/(f  [r  12)  ,01  -0  [0(1] 

,6]  )*C 

1 71  : 

r |r 

,2] -Finn  1 ,2  1-r 

( F 1 0 I 2 ] , 2 ] 

-Firm, 

21  ) -A 

17": 

i f 

r r r/‘  ([•'['  , 2 | , 0 ) = 

r rrr’  (n  | 91  , 

C ) ; P-P  ( 2]  ;n  to  +4 

15  0; 

if 

r r rr  (f  [r  ,21  ,C)  = 

r rod  (P  1 10  | 

,0) ; r - F ( 2 ) joto  + 

3 

15  1 ; 

if 

air.  ( A ) > 1 0 and  o 

I f' , 2 ) >20  ; f 

♦ P | 2 1 ;n to  4 2 

15  2: 

pry 

t f 

1 H 3 : 

'121-1 

15  1: 

i f 

F IF , 4 ) <1 ;ntc  •*  1 

3 

18  5; 

i f 

1 |l  , A ) > = ! 0 0 ; n t r 

+ r. 

1 H f : 

M//////////"-A$  I 1 , 

10);  if  [■»<• 

; 1-F 

11'7: 

r » r 

(r.rrd  (f  11  ,0)  ) -a 

?[ 1 ,31 ;AS | 2, 31 -AS | 1 ,2 1 

-A 

105  : 

1 ( i 

rrd  ( F 1 1 ,4),-l)-'. 

18f  : 

n r h 

"n  r inc" 

1 50  : 

or  l. 

••  ’i  f f • i> " 

191: 

off 

"LI" 

192: 

l+I 

* L 

15  3 : 

o : f 

"/woo y lo" 

194  : 

if 

1 = Y 1 1 ) y <1  to  +3 

155: 

1-0 

1 1 ) ;o  rb  "BOUND" 

1*6: 

f t O 

-30 

157  : 

n rt 

"1  GC1  " 

150.: 

"03 

50 50070(i "01 0 01 101 4(11  50 160170"*!  $(1  , 30] 

155; 

cr  c 

1;"  F*PD(  "* A$  | 1 

, 5 ] ; o cb  "SUPIII  AO" 

M 1 1 3(> 


> 


169 


) 

V 


200;  "G"-A$[10. 101 ;osh  "APPAY  15" 

201:  int  ( (b  [ Y[  1 ] ,61 /l('+val  (P$  [ 19  ,21  ] ) )*  .03281)  -r9 
202:  fcr  N = 45  to  1 by  -i;if  t[2,Nj  = 0 and  1 [ 3 ,N ] =0; nex t !- 
203  : if  int  (b  [ 1 ,N]  * .003281)  <r9;  int  (N  [1  ,H]*  .003201)  -r9 
20  4 : int  ( (val (ZS  [6  ,8} ) +val (P$[ 19,21 ] ) + 1000) *.0  3281)  -r 10 
20  5:  1-b 

200 : for  V.  = 0 to  9 

20  7 : val  (V  S [13+1  ,V. 3+3)  ) -C 

208:  if  rlO>C;pext  V 

209:  if  Q>r9;otc  +12 

210:  0*304.8-0 

211:  nsb  " ANCLE?" 

212:  " 9// //" - I $ [ 1 , 5 ] ; " "*F$[1,15) 

213:  if  0>=100*304.8;"1"-I$[1  ,1) 

214:  Vi$  [ W 3+  2 ,V,3+  3]  - I $ [2,3] ; A $ [ 11 ,151-F$[1,5] 

215:  str  (r  9 ) -R$;  i f r9<100  and  P$  [ 2,21  =V!S  ffc’3+2  ,V3+2  1 ; 2-r.;nrx  t V 
216:  if  r 9>  = 100  and  P $ [ 3 , 3 ] =V.'$  [V’  3+  2 ,V’ 3 + 2 ] ; 2 *0 ; ncx t 1 
217:  lS[l  ,5) -AS  [ 1 ,5]  ;nsb  "AFPAY  5" 

218 : F$(l ,5]-A$[l,5] ;OFb  "APrAY  r" 

219:  next  V 
220 : otc  +10 

221:  r°*304.S-C;osfc  "ANCLES" 

222:  if  r9=val  (V  $[V.3-2  ,Vv3]  ) ;atc  +8 

223:  str  (r  9 ) -E$  ; i f r9<100  ;E$  [ 2 ,3] -PS  [ 3 ,4  1 

224  : if  D=1 ; "9////" -I S [ 1 ,5] ; " ”-F$[l,10] 

225:  if  T=1  end  0> =100* 304 . 8 ; " 1"- I $ [ 1 ,1] 

226:  if  D=1 ;B  $ [ 3 ,4 ] ♦ I $ [ 2 , 3 ] ; AS [ 11 , 1 5] -b  $ [ 1 , 5] 

227:  if  D=2;B$[4,4]-I$[4,4] ;A$[11,15) -b$[6,10] 

228:  I $ [ 1 , 5] -A$ [1,5] ;qsb  "AFPAY  5" 

229:  F$ [ 1 ,10 ] -AS [ 1 ,10 ) ;o£fc  "AFPAY  10" 

230:  qsb  "FOCI" 

231:  if  f lq4 ; wtc  2,2;for  N = 1 to  75;wtf  2,0;next  i\;vtc  2,0 
2 32  : trk  0;ldp  0,0,6 
2 3 3:  e n o 
*13212 
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f.  Fllgtt  Irfonration 
TRACK  1 FILE  9 


0 : cfo  0 ; f 

'T  : ,rrr:  “c 

2 : fxd  1 ; r 

iv  'mrrr 

4:  "R-Prt:-; 
5:  if  A<0  ; 

6 : r n t 

7:  "P-L" :F 
8 : dim  Fl- 
9 : t r k 0 ; ] 
10:  snc  5; 
1 1 : for  T= 
12:  snc  1 ; 
.13:  f xd  1 ; 
14:  f xd  0 ; 
15  : f xd  1 ; 
16:  f xd  0 ; 
17:  f xd  1 ; 
IP. : f xd  1 ; 
19:  For  1= 
20:  if  F [ ] 
21 : nrnd ( I 
2 2:  f xd  1 ; 
23:  (b  [T,f 
24:  fxd  0; 
2 5:  F { 'J  , 6 I 
26  : f xci  0 ; 
27 : if  not 
2 8 : next  T 
29:  spe  2; 
30 : fxd  1 ; 
31  : fxd  0 ; 
32:  fxd  1 ; 

33  : fxd  1 ; 

34  : d irp  Pf 
35:  t rk  0 ; 
36  : d im  FI  | 
37:  Idf  11 
38:  sfa  3; 
39:  if  f]c 
40:  if  fie 
41:  if  f]c 
42:  if  fie 
43:  if  fie 
44:  if  fie 
4 5:  if  fie 
4 6 : if  fie 
47:  H [-1,5 
4b  : X*rl  ;Y 
45:  .00001 
*27494 


fq  3 ; dsr>  "PROCESSING  FLIGHT  INFORMATION " ;a  to  +8 
1 ; t'  x ri  0;nrt  ,rSl£  LEVEL 1 ; fxd  T;  p r t TIME  w , F 1 1 ,T] 
rt  " PRESS , mb" , F [ 1 ,4 ] ;pr  t "MISSING  l ET  DATA";spc  l;ret 

,r:cT6~  j;~dsp'  "•PELgTnm'  I ; ret 

(XX+YY)  -R  ;atn  (V/ (X+Te-9T*(X=(5“)  ) ) +2*Yan  (Y)  *atn  (le9_9)  * (X<0)  -A 

360+A-*-A 

*ccs  (A)*X;R*sin(A)-*-Y;ret 

rVCTT,1:6]  , Y | 2 ] 

df  10, F [*]  , Y l * ] 

nrt  ******************  /'bli  INFORf'Al  ION"  ; see  2 

Y [ 1 ] to  1 by  - 1 ; i f F[T,3]=C;next  T 

fxd  0 ; or t "SIC  LEVEL" ,T 

rrt  " TIMF,m", F[T,5] 

nrt  " HEIGHT, m", F[T,6 ] 

nrt  " 1Ef'P,C",  F[T  , 1 ] 

rrt  " HUM,?.  " , F [T,2] 

rrt  " PRESS , mb  ", F [T ,4 ] 

nrt  " TEMP, Tv" , F [T,3 ] 

'1-1  to  0 by  - 1 ; i f F [ 1 , 3 ] =0  ;a sb  " I" 

, 3 ] =0 ; next  I 

F [T,  3] -Ft  I, 3] )/.001 (F [T,6)-F  [1,6] ) ,-1) *G 
rrt  " LAPSE, C" ,G 
J-F  [1,6] )/(F [ T , 5 ] - F [ I , 5 ] ) -G 
nrt  " RATE/KISF."  ,G 
/F[T,5]-G 
nrt  " AV E-RISE"  ,G 
flo3;nto  +7 


fxd  0 ; 
prt  " 
rrt.  " 
rrt  " 
nrt  " 
f 102)  , 
Idf  9, 
-2:45, 
,Hl*l 
snc  5 ; 
0;  see 
0;  p r t 
0;  f xd 
0;  f xd 
0;  fxd 
0;  f xd 
0;  fxd 
0 ; fxd 
1-A;U  l 
-r2 

♦ II  (0,4 


;nr  t " SURFACE"  

TEMP,C" , b [0,1] 

HUM,?",  F [0,2] 

PRESS, mb",  F [0,4 ] 

TE MP , Tv" , F [0 ,3  ] 

,0$ [16]  ,0$  [16]  ,L$ [16]  , N$  [6]  ,G$ [192 
, P$ ,0$ ,0$ , L$ ,N$ ,G$,D$ 

,1  : 6 ] 

tort  " ZONE  INFORMATION" 

3 ; f xd  0 ; p r t "SURFACE" 

" ALTq e om " , H [0 , 1 ] 

3 ;nr  t " TIME", R [0,4] 

0;prt  " HOP  DST"  ,11  [-1,6] 

3;nrt  " AZ  OFF " , H [- 1 , 5 ] 

0 ; p r t " ALTmsl" , val (P$ [19,21] ) *10 
0 ;nrt  " WDI R , deo" , H [-2 , 5] 

0 ;p  rt  " V.SP  LED  , k ",  H [-2  ,6  ] 

[-1  ,6  ] -* R ; n s b "P-*R" 


[192]  ,U$  [16] 


“7SBK-  i 1 
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I 

I 


t 

, w 

I 

50:  for  N=C  tc  45;if  II  (N , 4 ] =C;n  to  +20 
51:  tt-i-J 
52:  6 36  76  50  + S 

53:  V ( (S+H  [Nfl ] ) ~2-S'?ccs (H [l ,( ) ) * 2 ) -Fs in ( H [N ,6 1 ) -r3 
54:  ( Sees  (H  [N  ,6)  )/(S+n  [N,  1]  ) ) r 2+V 
55:  H ft-  ,51  *A;nsl"  "P+P" 

56:  r l*r4  ;X-»rl  ; r 4-rl  +y ; r 2*r6  • Y-*-r2;  r 6-r  2->Y;osh  "F+P" 
57 : (*/(»’ [N ,4] -H[J,4 ] ) ) .C3238-P 

58:  II  [J  rl  1 + (H  [N  ,11  -n  [ J f 1]  ) /2+val  (P$  fl  0 ,21 1 ) *10  + 0 
59:  if  floOyspc  l;fxd  0;rrt  " AT. 7 its]  " , I' 

60:  if  flnC';fxd  0;rrt  "KDI P , deo  " , A 
61:  if  f loP ; f xd  0 ; rr  t "KPPPPn  ,k  " , S 
62:  r.pc  l;fxrl  0;prt  "?ONL" , N 
63:  prt  " ALTneon> " , I’  ( N,  1 1 
64:  fxd  3;rrt  " TIFF" , I!{ N , 4 ] 

65:  fxd  3;irt  " El  F.V"  , H [ N , 6 ] 

66:  if  N=0;fxd  0;prk  " OOP  DST"  , H [ -1  ,6  ] 

67:  fxd  3;rrt  " AZ",UfM,51 
68:  if  net  f 1 a 3 ; o t o +2 

69:  next  N 

70:  prt  "****************" ;s pc  5 

71:  risp  "FFCC ESS INC  FLICHT  CONTINUATION" 

72:  trk  0;ldn  6 
73:  end 
*3668 


c . i . Taoe 
'i  PACK  1 FILE  2 


C : f fq  1 

1:  P$  [1260]  ,R$ [5]  ,A$ [180]  ,E$ [7]  ,C$ [32]  ,D$ [17] 

2:  dim  Vi  $[56]  , Z$  [895]  , V$  [96]  , E [25] 

3:  dim  X$ [1  I , F$ [39] 


j f f lol ;a  to  +5 

for  N=1  to  895 ; "0 "♦Z$ [N ]; next  N 
"IF  PEPTX  OPERATI ONAL?"-*  C$ ; ash  "Y/N" 
if  A=-2tr“  10  ; cfa  l;ato  +5 
if  A=-ltn“  10 ; sfq  1 

df.p  " PPLFA RATION  OF  PRESS  TAPE" ;qsb  " BBP" 

IF:  gr  c 5, ‘time  500 

TT:  mr  t " Use  ASC 1 1 tane  ore-inch  w ide.  . " /"TAPE  E'OFMAT:  NWS";soc  2 

12:  ort  "PRESS  TAPE  ENTRY"," " 

" "♦U$ [1,7] 

"o.>9yo  0 "♦F$[l,30] 

"180  0 0 "*C$[1,17) 

qtc  +61 


13: 
14  : 
15: 
16  : 
T7T 
18  : 
19: 
20: 
21  : 
22: 
23: 
24  : 
25: 
26  : 
27: 
28  : 
29  : 
30: 

31  : 

32  : 
33: 
34  : 
35: 
36: 


PRESS  TAPE"  : 2 -*•  A ; ,ni*A$  ll  ,1]  ;teep;wai  t T5C)-;hreb 

if  i\  < 1 0 0 ; " "♦B$  [ 3 , 3 ] ; i f K<10;"  "♦L$[2,3] 

fxd  0 ;dsr  "ENTER  PRESSURE  AT  CONTACT" , B$  1 1 , 3 ] ;ent  "”,A$ 
if  not  flal  and  A$ [ 1 ,2 ] =”00 ” ;q to  +103 
if  A$ [ 1 , 7 j # 2 tn~ 10 " ;q to  +3 

dtp  """DELETE""  CONT  OR  USE  UPPER  KEYS" ;qsb  " BBB" 
stp 

if  A#  2 ; 2 -*A  ; " A$  ; " 0 "♦  A$  [ 1 ,1  ] ; beep  ; wa  i t 150;beep;oto  -5 
" "*E$[1,7] 

if  lor  (4$)  >6  jo  to  -9 

f yd  1 ;val  (A$  [1,6]  ) ♦Ljf  xd  0;prt  A$  [ 1 , 6 ] , K ; f xd  l;if  I,<  10000  ; s tr  ( L)  *E$  [ 1 1 
" " ♦ E $ [ 1 , 1 ] 

if  L<lC00;str (L)-E$[2,7] ;"  ”-E$[l,2] 

if  L<100 ;str (L) -E$ [3,7] "-E$[l,3] 
if  L<10;str (L)-E$ [4,7] "*E$[1,4J 
if  L<1 ;str (L)*E$ [5,7] ;"  ”+E$[l,5] 

if  L<0 ;q to  -14 

if  L>  1 1 00  ;nrt  " REPEATING " ;qsb  "BBB" 

if  L> 11 00 ;q tc  -16 

if  r = 0 ; " 0 "♦E$  [1,7] 


* 

38  : 

"DELETI  ":dsp  "DELETING  CONTACT  & PRESSURE"  ;nrt  " DELETING 

_ M 

39: 

asb  " r.BB" 

40: 

K - 1 ♦b ; r t O 100 

• 

41: 

ret 

43 

44 

45 

46 

47 
40 
49 


*17312 


ent  " " , A $ ; if  A$[1,1]="0"  or  A$[l,l]="l"  or  A$ [ 1 , 1 ] ="2 " ;q to  +9 

if  A$  [ 1 , 1 ] ="  3 " or  A$  [ 1 , 1 ] =" 4 " or  A$  [ 1 ,1  ] = " 5"  or  A$  [ 1 , 1 ] ="6"  ;qt.o  +8 

if  A$  { 1 , 1 ] ="  7 " or  A$  ( 1 , 1 ] ="  8 " or  A$[l,l]="9"  or  A$  [ 1 , 2 ] ="  . 0"  ';q  to  +7 

if  A$ [ 1 , 2 ] =" . 1 " or  A$ [1,2] =" .2"  or  A$ [ 1 , 2 ] = ■ . 3"  or  A$ [ 1 , 2 ] =" . 4 " ;q to  +6 

if  A$[l,2] =".5"  or  A$ [ 1 , 2 ] =" . 6 " or  A$[l,2]=".7"  or  A$ [1 ,2 ) *" . 8" ;gto  +5 

if  A$[l,2]=" .9";qto  +4 

if  A$ [1 ,7] = "-2tn'10" ;trk  0;ldp  0,0,6 
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L 


m 


50  : 
51: 
52: 
53: 

54  : 

55  : 

St] 

qtr  -9 

if  A#  2;ato  -10 
va3(A$)*L;if  L<0;qto 

II 

ret  

-11 

"*C$ll,32] 

ftY/N : 2* Ajbeep 

;dso  C$ [1,321 ;ent  " " ,A 

57  : 

if  A#- 2 tn~  1 0 and  A#- 

ltn“  10  ;q  t o -1 

58  : 

II 

" *C$  [1,32] 

* 

59: 

ret 

60: 

"VISUAL  DIGITS 

" : 

61: 

wtr  2,2;fmt  b. 

z 

62: 

if  X$=" 0 " ;pa r 

2 ; wr  t 

2, 126 ;par  2;wrt  2,l;nar  2;wrt  2,l;oar 

0 ;vr  t 

2,126 

63: 

if  X$= " 1" ; pa r 

2; wr  t 

2,127 

64  : 

if  X$= " 2 " ; pa r 

3 ; wr  t 

2,114;par  3;wrt  2,9;par  3;wrt  2,9;par 

3;  wr  t 

2,6 

65  : 

if  X$= "3" ; pa r 

2 ; wr  t 

2,65;oar  3;wrt  2,9;par  3;wrt  2,9;par 

2;wrt 

2 

,119 

66: 

if  X$="4" ;par 

2 ; wr  t 

2,15;par  3;wrt  2,8;par  3;wrt  2,8;par 

3 ;wr  t 

2 

,126 

67: 

if  X$="5" ;par 

3 ; wr  t 

2,79;par  3;wrt  2,9;nar  3;wrt  2,9;par 

2;  wr  t 

2 

,113 

68: 

if  X$= " 6 " ;pa r 

2 ; wr  t 

2,126;oar  3;wrt  2,9;par  3;wrt  2,9;par 

2;  wr  t 

2,114 

69: 

if  X$= " 7 " ; oa r 

3 ; wr  t 

2,113;par  2;wrt  2,9;par  3;wrt  2,l;par 

3 ;wr  t 

2,7 

70: 

if  x$= " 8 " ; pa r 

3 ; wr  t 

2,118;par  3;wrt  2,9;oar  3;wrt  2,9;par 

3 ; wr  t 

2,118 

71: 

if  x$= "9" ;par 

3;  wr  t 

2,70;par  ljwrt  2,9;par  l;wrt  2,9;par 

2 ;wr  t 

2 

,126 

72  : 

if  X$="  ■ ;pa  r 

2 ; wr  t 

2,24 ;par  2;wrt  2,24;oar  2;wrt  2,24;wrt  2,24 

73: 

if  X $= " 0" ; Da r 

2 ; wr  t 

2,126,127,67,67,127,126 

74  : 

if  X$= "L" ;par 

2 ;wr  t 

2,127 ,127  ,64  ,64  ,64 

75: 

pai  0 ;wr  t 2,0 

76  : 

re  1 

77: 

"EE  TER  SEFIAL 

NUMBER 

(xxy-xxxx ) " *C$  ;a sb  "DI" 

78: 

if  A$ [4 ,4] 

and  len(A$)=8;A$[l,8]*F$[P,15]  ;afo  +3 

79  : 

dsp  "SEVEN  DIGITS  APE  NEEDED" ;qsb  "EBB" 

Hr, 

ate  -(3 

81  : 

"EETER  DETENT 

VALUE 

(.xx)  "*C$ [1,32]  ;q sb  " DI" 

82: 

10CL*K;str (K)  * 

A$  ;i  f 

K<1 0000 ;A$ [2,5] *F$ [17,20] 

83:  if  K<1000;A$[2,2]*F$[17,17]  j A$ [ 3 ,4 ] * F$ [ 19  ,20 ] "*F$[18,18] 

84:  if  K<100;A$  [2 ,3]*F$  [19,20]  "*F$[17,18] 

85:  if  K<10;A$  [2 ,2]*F$ [20,20] ; " "*F$[17,19J 

86:  "SEP  NO:  "*C$ [1 , 8] ; F$ [8 ,15] *C$ [9 ,16 ] ;pr t C$[l,16];fxd  2 
87:  "DETENT:  "*C$ [1,8] ;str (L) *C$ [12 ,16] ; " "*C$[9,12] 


88:  pr t C$[l,16];spc  2 

UQ.  "Act?  Ij  L)  V 'I't' n O LI  A DT 


"WT 

90 


'AFE  PRINTED  CHART  VALUES  OK? 
if  A=-2  tn“10 ; nr  t " FEPEATING- 


" *C$ [ 1 , 32 ] ;q sb  "Y/N" 
-"?q.tQ.rl3 . 


*r$  rn  ,ttt 

92:  val  (F$  [8 ,10]  ) +val  (F$ [12 ,15] ) +val (F$ [17 ,20] ) *L; if  L>  10000  ;L- 10000*1, 
93 : str  (L)*A$ 

94:  if  L>1;A$[2,2]*F$ [30,30] 

95:  if  L>10;A$[2,3]*F$[29,30] 

96:  if  L>100;A$ [2 ,4]*F$ [28 ,30] 

97:  if  L>1000;A$ [2 ,5]*F$ [27,30] 

98:  pr  t "PPESS  CONT" 

99:  1 *M 
*16753 
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ICO:  for  K=M  to  179 

101:  str (prnd(K,0) ) ♦B? [1 ,4 ] ;P$ [2 ,4]+B$ [1 ,3]  ;asb  "PFESS  TAPE" 

102:  F$ [1,7]-US [1+K7,7+K7] 

10  3:  F.$[2,5]*Z$  [ 1 + 5 (K-l)  ,4+5  (K-l)  ] 

104 : F$ [7,7] -ZS [5+5 (K-l) ,5+5 (K-l) ] 

105:  if  val(E$)  <1000;"0"*Z$  [1+5  (K-l)  ,1+5  (K-l)  ] 

106:  if  val(E$)  < 100  ; " 0 "♦  Z$  [ 2 + 5 (K- 1)  ,2  + 5(K-l)  ] 

107:  if  val  (E$) <10; "0"+Z$ (3+5 (K-l)  ,3+5 (K-l) ] 

108:  if  val (E$) <1 ;"  0"-*Z$ [4 +5 (K-l) ,4+5 (K-l) ] 

109  : if  K=  1 ; q to  +4 

110:  if  val (U$ [1+7K,7+7K] ) <=val (U$ [1+ (K-l) 7,7+ (K-l) 7] ) ;qto  +3 
111:  K - 1*M ; <3  so  " REPEATING " ;gsb  " BBB" 

112:  pit  " REPEATING ";qto  -12  

113:  nfxt  R 

114:  fjd  1 ; for  K=1  to  179  ; val  (U$  [1+7K  ,7+7K  ] ) +Z-*-Z;next  K 
115:  Z- int (Z/10000) *10000-Z 
116  : st  r (Z)*A$ 

117:  ii  Z>0;A$[2,3]+D$[16,17] 

110 : ii  Z>1.;A$[2,4]+D$  [15,17] 

119:  ii  Z>10;A$ [2 ,5] ♦D$  [14 ,17) 

120:  ii  Z>100 ;A$ [2 ,6 ] -D$ [13  ,17] 

121:  if  Z>1000;A$ [2,7] -D$ [12,17] ;soc  2 

122:  "(  HECKS  UN  " *C$ [ 1 , 9 ] ; D$ [ 12 , 17 ] »C$ f 10 . 1 5 1 : or t C$  [ 1 . 1 5 1 !Src  2 
123:  trk  1 ; ref  0 , Z$  ,V$  ,B  [ * ] 

124;  if  not  f]ql;trk  0;ldp  2,0,310 
125:  drp  "TURN-ON  R E ME X " ; q sb  "EBP" 

126.1.- if.  no_t  -ios2  ;»;ai  t 5000  ;qto  -1 

127:  vtc  2,2;for  N=0  to  50;firt  h,z;wrt  2,0;noxt  N;wtc  2,0 
128:  F5 [8,8] -X$ ;qsb  "VISUAL  DIGITS" 

129:  F? [9 ,9] -X$ ;osh  "VISUAL  DIGITS" 

130:  FS [10,10] ♦XS ;q  sb  "VISUAL  DICITS" 

131:  " "-X$;qsh  "VISUAL  DIGITS" 

132:  F$ [12 ,12] ♦XS ;qsb  "VISUAL  DIGITS" 

133:  F$[13,13]-X$;qsb  "VISUAL  DIGITS" 

134:  F $ [14 ,14 ] +X  $ ;qsb  "VISUAL  DIGITS" 

-13.5J-  F$  [15.15  NX$  ;gsb  "VISUAL  DIGITS" 

136:  wtc  2,2;for  N=1  to  7 ;firt  b,z;wrt  2,0;rext  N;wtc  2,0 
137:  "0 "♦X$  ;q sb  "VISUAL  DIGITS" 

138:  "L">X$ ;gsb  "VISUAL  DIGITS" 

139:  " "♦X$  ;gsb  "VISUAL  DIGITS" 

140:  "1 "♦X$  ;q  sb  "VISUAL  DIGITS" 

141:  "9"-X$;osh  "VISUAL  DIGITS" 

142:  " 2 "•>X$  ;q sh  "VISUAL  DIGITS"  

143:  vtc  2 ,2  ; for  N=1  to  7 ;f  irt  b , z ;wr  t 2 ,0  ; rex  t N ;wtc  2 , 0 

l/,4:  par  2;wtc  2,2;for  N=1  to  49;frrt  b,z;wrt  2,127;next  N;wtc  2,0 

145:  wtc  2, 2;  frit  b;wrt  2,127;wt.c  2,0 

146:  vtc  2,2;  fin  t b,z;wrt  2,127  ;wtc  2,0 

147:  wtc  2 , 2 ; pa r 2;wrt  2,  F$ [ 1 , 30 ] ;wtb  2,127;wtc  2.0 

W:'  for  N=('J  to  1 / ; str  (tTT^^Tr,TT;lf  "n<T0;  "(VVaTI  1 , l)  ;E>$  ( 2 ,2  )'»  A$  [ 2 , 2 ] 
149:  if  N>9;B$ [2 ,3]*A$ [1  ,2] 

*31005 


h.  TACFIRE 
TRACK  1 FILE  3 

0:  dsr  "1ACFIPF  TCG1  TFI AL  IN  PPOGFCSS" ; wa i t 5000;  spc  5 
1:  dsr  "LOOP" ;rrt  " T.OCP" ; wa it  200 

2:  for  N = 48  tc  57;dmc  cbar(N);prt  cha  r (N)  ; wa  it  20P;r.ext  N 
3:  for  N=f>5  tc  9 0;dsD  char(N);nrt  char (N) ;wait  2C'0;ncxt  N 
4;  rise  "TACFIFF  TFST  TFI  M.  CC*’PI.rTTP"  ; SPC  2 
5 : t r k 0;  ldr  0,0,0 
0 ; end 
*15704 
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